Folgenden Code habe ich mir aus der Recherche herausgesucht
Dim zeilen As Long
For zeilen = 1 To Sheets(1).UsedRange.Rows.Count
Sheets(2).Rows(7).Insert Shift:=xlDown
Next
Nun möchte ich aber die Zeilenanzahl im Sheet(2) ab der momentan Aktiven Zelle einfügen. Ist das möglich?
Gruss Klaus