wie der Betreff schon sagt, möchte ich leere Zeilen einfügen.
In Der Spalte G stehen Namen und nun soll jedes Mal sobald sich der Name von Range("G" & x) und Range("G" & x+ 1) unterscheidet eine leere Zeile eingefügt werden.
lz = ThisWorkbook.Sheets(1).Cells(Rows.Count, 1).End(xlUp).Row
For x = lz To 2 Step -1
If Range("G" & x).Value Range("G" & x).Offset(-1, 0) Then
Cells(ActiveCell.Row - 1, ActiveCell.Column).EntireRow.Insert
End If
Next
Das ist mein Ansatz, aber er fügt dann über 10 leere Zeilen hintereinander ein. Was ja auch logisch ist, da der Vergleich der neu eingefügten leeren Zellen immer ungleich der aktuell markierten (mit Namen gefüllten) ist. Wie behebe ich das Problem?