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
Wie pflege ich sie denn am besten deiner meinung nach die haut