Zellen in andere tabelle verschieben
15.09.2004 18:23:18
erty
bisher hat folgendes Makro immer funktioniert:
-ich konnte eine ganze zeile markieren und mit dem Makro in eine Zweite Tabelle an die erste freie stelle verschieben! in der Ursprungstabelle wurde die komplette zeile gelöscht. Mit einer neuer excel version funtioniert dies nicht mehr! es erscheint ein laufzeitfehler 1004 und die Zwischenablage kann nicht geleert werden. oder die copy methode ist falsch!!!
Der fehler müßte in diesem befehl liegen...
Else
Selection.Copy WS2.Cells(WS2.Range("A65536").End(xlUp).Row + 1, 1)
Weiß jemand Rat?
Private Sub CommandButton5_Click()
Dim WS1 As Worksheet, WS2 As Worksheet
On Error GoTo errorhandler
Set WS2 = Worksheets("erledigte")
If IsEmpty(WS2.Range("A1")) Then
Selection.Copy WS2.Range("A1")
Else
Selection.Copy WS2.Cells(WS2.Range("A65536").End(xlUp).Row + 1, 1)
End If
Selection.Delete Shift:=xlUp
Exit Sub
End Sub
Anzeige