ich möchte eine Zeile von A-K in eine andere Tabelle kopieren und die kopierte Zeile
soll gelöscht werden.
Selection.Cut.Delete Shift:=xlUp
leider nicht geklappt,
was ist falsch ?
gruß kurt k
Sub CopyAndDelete()
With Range("A7:K7") 'Bereich auf aktuellem Tabellenblatt festlegen
.Copy Worksheets("Tabelle3").[A5] 'Bereich kopieren
.Delete Shift:=xlUp ' Bereich (ganze Zeile !) löschen
End With
End Sub