ich kann mit nachfolgendem Code eine Zeile kopieren und wieder einfügen.
Public Sub KopierenundEinfügen()
Dim lngRow5 As Long, lngRow6 As Long
If TypeOf Selection Is Range Then
Dim i As Integer, j As Integer
lngRow5 = ThisWorkbook.Names("Anfang").RefersToRange.Row
lngRow6 = ThisWorkbook.Names("Ende").RefersToRange.Row
Selection.Cells(1, 1).Select
If Selection.Row > lngRow5 And Selection.Row
Das Problem ist nur, dass sobald ich den Button Abbrechen betätige, ein Fehler auftritt.
Es kommt Typen Unverträglichkeit.
Hat jemand dazu eine Lösung. Ich kann mir nicht selber helfen.
Danke.