wie kann ich in der Beispieldatei nach jeder Gruppe eine Leerzeile einfügen?
Gehjt es mit einem VB-Script?
Danke für eine Lösung
https://www.herber.de/bbs/user/123798.xlsx
Sub aaaa()
Dim i As Long
Application.ScreenUpdating = False
For i = Cells(Rows.Count, 1).End(xlUp).Row To 2 Step -1
If Cells(i, 1) Cells(i - 1, 1) Then Rows(i).Insert
Next
End Sub