Hilfe! zeile verschieben?
14.05.2004 17:24:36
erty
ist es denn möglich über ein Makro einen Datensatz (also eine komplette Zeile) in eine andere Tabelle (Blatt) zu verschieben?
Wenn ja, wie?
schonmal Vielen Dank!
Hallo erty
Dieser Code schneidet deine Zeile aus, fügt sie im anderen Tabellenblatt ein und löschte die leere Zelle in der ersten Tabelle!
Rows(n).Select
Selection.Cut 'schneidet zu löschende Zeile aus
Sheets("deine Tabelle").Select
Cells(i, 1).Select
ActiveSheet.Paste 'fügt ausgeschnitene Zeile ein
Sheets("Ad_User").Select
Rows(n).Delete Shift:=xlUp 'löscht leere Zeile (wo ausgeschnitten wurde)
Kann man ganz einfach mit Makro aufzeichnen erstellen.
FloGo
Hallo erty
mit folgendem Code sollte es klappen:
Private Sub CommandButton1_Click()
call zeile
End Sub
Sub zeile()
Dim i As Integer
i = 0
Do
i = i + 1
Loop Until IsEmpty(Sheets("Deine Tabelle2").Cells(i, 1))
Selection.Cut
Sheets("Deine Tabelle2").Activate
Cells(i, 1).Select
ActiveSheet.Paste
Range("A1").Select
Sheets("Deine Tabelle1").Select
Selection.Delete Shift:=xlUp
Range("A1").Select
End Sub
1. Zeile auswählen
2. CB1 clicken
Du musst nur noch die Namen deiner Tabellen einsetzen!
FloGo
Cells(i, 1).Select
hier bleibt das makro mit diesem fehler stehen.
was muß ich abändern?
Laufzeitfehler '1004'
Die select-methode des Range objekts konnte nicht ausgeführt werden