Das Makro soll immer dann wenn es einen doppelten eintrag in B findet
eine leere zeile einfügen. das Makro hat mal gefunzt. ich weis nicht warum das auf einmal nicht geht?
das ergebnis sieht, wenn das makro funzt so aus:
36100
36100
leere zeile
2201
leere zeile
36212
36212
leere zeile
usw.
nun das makro. kann da mal jemand darüber schauen wo der knacks sein kann?
Sub test()
Sheets("Gruppen").Activate
Range("A3:A150").Select
Dim LoLetzte As Long
Dim Loi As Long
LoLetzte = IIf(IsEmpty(Range("A65536")), Range("A65536").End(xlUp).Row, 65536)
For Loi = LoLetzte To 2 Step -1
If Cells(Loi - 1, 8) <> Cells(Loi, 8) Then Rows(Loi).Insert Shift:=xlDown
Next Loi
End Sub
danke achim h.