VBA Neue Zeile an bestimmter Stelle mit Inhalt einfügen?

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

Answer 1

[IchMalWiederXY]

Immer wenn sich eine Zelle ändert wirft Excel ein "ChangeEvent".
Diese kann man aufgreifen, um dann zu prüfen, ob es jenes ist, was dann noch "Makro" Aktivitäten nach sich ziehen soll.
In deinem Fall anstatt mit der Schleife nach einem Datum zu suchen eben nach der Prj Nummer. (Es gibt schnellere Methoden als eine Schleife, sollte die Nummer nur einmal vorkommen)
Ggf über den Makro Rekorder das Einfügen einer "Zeile darunter" aufzeichnen um dann diesen Code auszuführen, sobald die Prj Nr. gefunden ist.