ich habe sehr viele Reihen an Datensätzen in einer Tabelle. In Spalte A stehen sortierte Gruppennamen. Dabei stehen jeweils in mehreren Reihen die gleichen Namen.
Ich möchte nun vor jeder dieser Gruppen eine Zeile einfügen.
Hier im Forum habe ich diesen Beitrag gefunden:
https://www.herber.de/forum/archiv/356to360/t359315.htm
Daraufhin habe ich folgendes Makro geschrieben
Sub Zeilen_einfügen()
Application.ScreenUpdating = False
i = 1
Do Until IsEmpty(Cells(i + 1, 1))
If Cells(i, 1) Cells(i + 1, 1) Then
Cells(i + 1, 1).EntireRow.Insert
End If
i = i + 1
Loop
Application.ScreenUpdating = True
End Sub
Aber irgendwie funktioniert das nicht richtig, Excel hängt sich immer auf (ich arbeite an einem Mac und verwende die Mac-Version von MS Office => Excel:Mac 2004)
Das oben verlinkte Makro funktioniert hier aber in einer entsprechend umgestalteten Tabelle (Spalte A meiner Daten in Spalte E verschoben).
Was mache ich falsch?
Vielen Dank!
Gruß Ralph