Insert Rows ab bestimmter Zeile
10.01.2017 19:12:11
Zarah
Ich will folgendes machen:
Ich habe eine Liste, in der die markierten Zeilen gelöscht werden sollen per vba und im gleichen Schritt unten am Tabellenende, so viele neue Zeilen eingefügt werden sollen wie oben in der Selection markiert wurden.
Dim src As Integer
Dim zeile As Integer
src = Selection.Rows.Count
Selection.Delete
Sheets("XX").Cells(Range("A47").End(xlUp).Row, "A") = Rows(src).Insert 'geht nicht - zur info, ich habe unter der tabelle noch eine andere Tabelle nach zeile 47, deswegen konnte ich nicht rows.count end xlup nehmen..
Auch versucht und nicht funktioniert:
With Sheets("XX")
For zeile = 1 To scr
.Rows(47).Insert
Next zeile
End With
Kann mir jmd helfen?
Gruß, Zarah