Guten Tag zusammen
Ich habe ein File, in welchem in der Spalte D Datum vorhanden sind. Ich will nun nach jedem Tagesdatum (siehe auch Anhang) eine Leerzeile einfügen und das klappt mit dem Makro soweit einwandfrei.
Public Sub zusätzliche_Zeilen()
Dim WkSh As Worksheet
Dim lZeile As Long
Application.ScreenUpdating = False
Set WkSh = ThisWorkbook.ActiveSheet
For lZeile = WkSh.Cells(Rows.Count, 4).End(xlUp).Row To 3 Step -1
If CDate(WkSh.Cells(lZeile, 4).Value) <> CDate(WkSh.Cells(lZeile - 1, 4).Value) Then
WkSh.Rows(lZeile).Insert shift:=xlDown
End If
Next lZeile
Application.ScreenUpdating = True
End Sub
Das Problem ist, dass das Makro nur bis zu D12 laufen darf, da in D11 kein Datum mehr vorhanden ist sondern die Überschrift und anschliessend Leerzellen in D1-D10. Wie erreiche ich das?
Aktuell bricht mit das Makro mit einem Fehler ab, da es bis D01 durchläuft.
Danke für alle Hinweise und Lösungen
cesar
Ich habe ein File, in welchem in der Spalte D Datum vorhanden sind. Ich will nun nach jedem Tagesdatum (siehe auch Anhang) eine Leerzeile einfügen und das klappt mit dem Makro soweit einwandfrei.
Public Sub zusätzliche_Zeilen()
Dim WkSh As Worksheet
Dim lZeile As Long
Application.ScreenUpdating = False
Set WkSh = ThisWorkbook.ActiveSheet
For lZeile = WkSh.Cells(Rows.Count, 4).End(xlUp).Row To 3 Step -1
If CDate(WkSh.Cells(lZeile, 4).Value) <> CDate(WkSh.Cells(lZeile - 1, 4).Value) Then
WkSh.Rows(lZeile).Insert shift:=xlDown
End If
Next lZeile
Application.ScreenUpdating = True
End Sub
Das Problem ist, dass das Makro nur bis zu D12 laufen darf, da in D11 kein Datum mehr vorhanden ist sondern die Überschrift und anschliessend Leerzellen in D1-D10. Wie erreiche ich das?
Aktuell bricht mit das Makro mit einem Fehler ab, da es bis D01 durchläuft.
Danke für alle Hinweise und Lösungen
cesar