Zeile einfügen wenn Änderung
16.02.2009 11:21:00
Judith
ich bräuchte wieder mal Eure Hilfe. Ich probiere schon den ganzen Vormittag per VBA eine neue Zeile einzufügen aber es klappt nicht.
Im Tabellblatt Wochenenddienste in Spalte A befinden sich Datumseinträge aufsteigend sortiert.
Pro Datum gibt es unterschiedlich viele Einträge.
Wenn sich das Datum ändert, dann soll ein Leerzeile eingefügt werden.
Mein Versuch, aber der klappt nicht:
Sub Zeile_einfügen()
Dim i As Long
Worksheets("Wochenenddienste").Activate
For i = 3 To Range("A65536").End(xlUp).Row 'Beginnend bei Zeile 3, letzter Eintrag
If Range("A" & i).Value Range(Cells(-1, 0)).Value Then Rows(i + 1).Insert
Next i
End Sub
Kann mir jemand helfen?
Viele Grüße
Judith