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