Leerzeilen einfügen und Inhalt von Oben übernehmen
03.03.2018 11:20:51
Oben
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
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