Hallo,
vielleicht kann mir zu dem Beispiel von UweD noch mal jemand helfen:
In meiner Tabelle sind in Spalte C sowas wie Bezeichnungen drin. Die Tabelle ist nach dieser Spalte sortiert. Jedes mal, wenn der Name wechselt, also ein neue Gruppe beginnt, soll der Code 4 Leerzeilen einfügen, das macht er sauber:
Sub Leer()
Dim Tb, LR As Double, i As Double, Sp As Integer, Anz As Integer, Letzte As Double
Set Tb = Sheets("Tabelle1")
Sp = 4 'Spalte D
Anz = 4 'Leerzeilen
LR = Tb.Cells(Tb.Rows.Count, Sp).End(xlUp).Row 'letzte Zeile der Spalte
Letzte = LR
For i = LR To 2 Step -1
If Tb.Cells(i, Sp) Tb.Cells(i - 1, Sp) Then
Tb.Rows(Letzte + 1).Resize(Anz).Insert xlDown
Letzte = i - 1
End If
Next
End Sub
Ich will damit erreichen, das ich unterhalb einer Gruppe noch weitere DS für diese Gruppe erstellen kann. Dazu muss nun auch der Gruppenname (Bezeichnung) aus der oberen Gruppe in die neu erstellen Leerzeilen übernommen werden.Sonst muss ich die paar Tausend Zeilen alle manuell bearbeiten.
Kann mir da jemand helfen, wie ich die neuen leeren Zeilen in Spalte C mit den Bezeichnungen von der jeweils oberen Gruppe noch mit füllen kann ?
Danke
Jockel