Karl-Otto Reimann Zeilen einfügen
25.02.2004 16:28:58
junny
habe heute einen Beitrag gesehen mit Inhalte in letzte Zeile einfügen.
Das ist super, geht das auch wenn ich dazwischen eine Zeile einfüge?
Sprich ich habe eine Tabelle die bis Zeile 320 vorbelegt ist. Beim ausfüllen merkt der User nun, dass er irgendwo dazwischen eine Zeile einfügen möchte, kannst Du das so umschreiben, dass das dann auch geht?
Das hier war dein code den ich gesehen habe.
Sub Last_Row_copy()
Dim rng As Range
Dim varCol As Variant
Sheets("Tabelle1").Activate
varCol = 1
If varCol = "" Then Exit Sub
Set rng = Cells(Rows.Count, CInt(varCol)).End(xlUp)
rng.EntireRow.Copy Destination:=rng.Offset(1)
End Sub
Das wäre mir eine große Hilfe, Danke Gruss volker