Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Anzeige
Inhaltsverzeichnis

Markierte Zeile in andere Tabelle übertragen

Forumthread: Markierte Zeile in andere Tabelle übertragen

Markierte Zeile in andere Tabelle übertragen
30.08.2016 17:44:22
Franz
Hallo lieber Excel-Kenner,
ich habe folgenden Code:
Sub KopierenUndLöschen()
Dim wks As Worksheet
Set wks = ThisWorkbook.ActiveSheet
wks.Rows(ActiveCell.Row).Copy Worksheets("Tabelle2").Range("A2")
wks.Rows(ActiveCell.Row).Delete
End Sub
Die markierte Zeile wird in die Tabelle 2 im Bereich A2 eingefügt und in Tabelle 1 gelöscht. Nunmehr möchte ich, dass die markierte Zeile an die letzt beschriebene Zeile in Tabelle 2 (also quasi am Ende) eingefügt wird. Gibt's da nicht irgendwas mit "End (x1Up)"
Anzeige

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Markierte Zeile in andere Tabelle übertragen
30.08.2016 17:50:08
baschti007
Soo ?

Sub KopierenUndLöschen()
Dim wks As Worksheet
Set wks = ThisWorkbook.ActiveSheet
wks.Rows(ActiveCell.Row).Copy Worksheets("Tabelle2").Range("A" & Worksheets("Tabelle2").Cells( _
1048576, 1).End(xlUp).Row + 1)
wks.Rows(ActiveCell.Row).Delete
End Sub

Anzeige
AW: Markierte Zeile in andere Tabelle übertragen
30.08.2016 17:50:13
UweD
Ungeprüft
Sub KopierenUndLöschen()
Dim wks As Worksheet, LR As Integer
Set wks = ThisWorkbook.ActiveSheet
With Worksheets("Tabelle2")
LR = .Cells(.Rows.Count, "A").End(xlUp).Row 'letzte Zeile der Spalte A
wks.Rows(ActiveCell.Row).Copy .cells(LR+1,1)
wks.Rows(ActiveCell.Row).Delete
End With
End Sub

Gruß UweD
Anzeige
AW: Markierte Zeile in andere Tabelle übertragen
30.08.2016 17:53:57
Franz
Genau so, dankeschön!
Dieses "LR" ist mir absolut noch nicht geläufig. Aber wird schon! ;)
Danke für die Rückmeldung mwT
30.08.2016 17:59:59
UweD
Dieses "LR" ist mir absolut noch nicht geläufig
Ist ja nur eine Variable, von mir LastRow benannt.
Wichtiger ist der Code dahinter.
LG UweD

Forumthreads zu verwandten Themen

Anzeige