Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema CommandButton
BildScreenshot zu CommandButton CommandButton-Seite mit Beispielarbeitsmappe aufrufen

Zellen in andere tabelle verschieben

Betrifft: Zellen in andere tabelle verschieben von: erty
Geschrieben am: 15.09.2004 18:23:18

Hallo zusammen,

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

  


Betrifft: AW: Zellen in andere tabelle verschieben von: erty
Geschrieben am: 15.09.2004 18:24:59

oder liegts am wegfall der deutschsprachigen VBA?


 

Beiträge aus den Excel-Beispielen zum Thema "Zellen in andere tabelle verschieben"