Hallo zusammen,

meine VBA Kenntnisse sind leider etwas eingerostet und ich komme bei folgendem Problem nicht weiter.

Wie in der angehängten Grafik zu sehen, gibt es eine Tabelle mit verschiedenen Projekten. Ich würde gerne bei Ausführen des Makros jeweils eine neue Zeile darunter einfügen, sobald sich die Projektnummer in Zeile A ändert. Da dies bislang noch nicht so geklappt hat, arbeite ich aktuell mit folgendem Makro und füge eine neue Zeile ein, wenn ich Spalte C das Datum des vorherigen Monats gefunden wird. Das sieht folgendermaßen aus:

Sub ZeilenEinfuegen()

Dim ze As Long, zeL As Long

zeL = 1000 'Letzte Zeile bis zu der gesucht werden soll

For ze = 1 To zeL

  If ActiveSheet.Cells(ze, 3).Value = "31.10.2022" Then

    ActiveSheet.Rows(ze + 1).Insert

    ze = ze + 1

    zeL = zeL + 1

  End If

Next ze

End Sub

Auf Dauer würde ich jedoch gerne mit der Projekt-Nr. aus Spalte A als Bezug arbeiten und auch automatisiert die Projekt-Nr. sowie Bezeichnung aus der Zeile darüber in die neue Leerzeile einfügen.

Es wäre super, wenn mir jemand bei der Verbesserung helfen könnte!

Danke und viele liebe Grüße

Judith