Undgå besked om Run-time error

du kan teste om udklipsholderen er tom med

If Len(R) <> 0 then

- og så replace og indsætte


..Ole

Du kan tjekke om udklipsholder indeholder tekst sådan:

Sub Indsæt_tekst()
    Dim DataObj As New MSForms.DataObject
    Dim R As String
    Dim S As String
    DataObj.GetFromClipboard
    If DataObj.GetFormat(1) Then
        R = DataObj.GetText
        S = Replace(R, Chr(13), "")
        ActiveCell.Value = S
    Else
        MsgBox "Udklipsholder indeholder ingen tekst."
    End If
   
End Sub

Kan du evt. vise, hvordan det vil se ud i min kode? Jeg er nemlig ikke den store VBA-ekspert :)

Tak, Tjacob - jeg tester det..

I øvrigt kan du ikke bruge 2Midas forslag, da du ikke kan teste på længden af R, da fejlen opstår i linien R = DataObj.GetText.

Kan man alternativt bruge noget i stil med:

Application.DisplayAlerts = False

Jeg er selv kun bekendt med anvendelsen af VBA, så ved ikke om det kan bruges på samme vis.

Fedt - det virker. Kan I ikke begge sende et svar - så deler jeg pointene..

Okay. Tjacob, sender du så ikke et svar? :)

OK, -svar.