Hallo,
das u.a. Makro funktioniert. Allerdings die Fehlermeldung nicht so wirklich.
Es werden Daten markiert und kopiert (Zwischenablage) und in ein Tabellenblatt per Makro eingefügt. Hier ist nur ein kleiner Bereich nicht schreibgeschützt.
Wenn also die Daten aus der Zwischenablage nicht korrekt sind, soll eine Fehlermeldung angezeigt werden.
Die MsgBox wird zwar angezeigt, ein Error kommt zusätzlich...
Wie macht man so was?
------------
Sub Zwischenablage_einfügen()
On Error GoTo ErrMsg
ErrMsg: MsgBox "Bitte die cxDaten korrekt markieren und kopieren", , "Zwischenablage einfügen nicht möglich"
' Zwischenablage_einfügen Makro
On Error GoTo 0
Application.ScreenUpdating = False
Sheets("cx_copy").Visible = True
Sheets("cx_copy").Select
Range("A3").Select
ActiveSheet.PasteSpecial Format:="HTML", Link:=False, DisplayAsIcon:= _
False
Sheets(Array("cx_copy")).Select
ActiveWindow.SelectedSheets.Visible = False
Sheets("Abholanfrage -auftrag").Activate
Application.ScreenUpdating = True
End Sub