163 Aufrufe
Gefragt in Tabellenkalkulation von jelena Mitglied (769 Punkte)

Guten Tag, kann mir jemand dieses Excel vba so verändern, sodass bei der Auswahl abbrechen keine Fehlermeldung kommt.

Sub Kopieren_Einfügen()
    Dim myrange As Range
    Dim zielbereich As Range
    Set myrange = Selection
    Set zielbereich = Application.InputBox(prompt:="Bitte Zielzelle markieren oder abbrechen", Type:=8)
If zielbereich Is Nothing Then
Exit Sub
Else
End If
    myrange.Copy
    zielbereich.PasteSpecial Paste:=xlPasteValues   'Paste:=xlPasteValues und Paste:=xlPasteFormats müssen separat sein
    zielbereich.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
    Application.CutCopyMode = False
End Sub

https://supportnet.de/forum/?qa=blob&qa_blobid=5503237184447011512

2 Antworten

0 Punkte
Beantwortet von beverly_ Experte (3.3k Punkte)

Hi,

versuche es mal so:

Sub Kopieren_Einfügen()
    Dim myrange As Range
    Dim varFehler As Variant
    Dim zielbereich As Variant
    Set myrange = Selection
    On Error Resume Next
    Set zielbereich = Application.InputBox(prompt:="Bitte Zielzelle markieren oder abbrechen", Type:=8)
    varFehler = Err.Number
    On Error GoTo 0
    If varFehler = 13 Then Exit Sub
    myrange.Copy
    zielbereich.PasteSpecial Paste:=xlPasteValues   'Paste:=xlPasteValues und Paste:=xlPasteFormats müssen separat sein
    zielbereich.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
    Application.CutCopyMode = False
End Sub

Bis später, Karin

0 Punkte
Beantwortet von jelena Mitglied (769 Punkte)
Hallo Karin, vielen Dank.
...