Hallo Ines,
vielleicht hilft dir das Makro weiter bei deinem Wochenraumplan weiter:
Option Explicit
Sub Zeile_einfügen()
Application.ScreenUpdating = False
'fügt nach gleichen Datum leere Zeile ein
Dim lngZeile As Long ' Zeilenzähler
Dim bFirst As Boolean ' Flag für 1. Eintrag eines Artikels
lngZeile = 7 ' Start in Zeile 7
bFirst = True ' am Anfang haben wir immer einen 1. Datum
While Cells(lngZeile, 1) > "" ' Solange in der 1. Spalte der Zeile was steht
If bFirst Then ' falls 1. Eintrag
bFirst = False ' jetzt nicht mehr
Else ' nicht der 1. Eintrag
' Test auf Datumwechsel, d.h. der Wert in Spalte A ist identisch mit dem der vorherigen Zeile
If Cells(lngZeile, 1) = Cells(lngZeile - 1, 1) Then
Else ' unterschiedliche Datum
' neue Zeile einfügen
Rows(lngZeile).Insert
' Zeilenzähler anpassen
lngZeile = lngZeile + 1
' Leerzeile einfügen
Rows(lngZeile).Insert
' Jetzt haben wird wieder einen 1. Eintrag
bFirst = True
End If
End If
lngZeile = lngZeile + 1 ' eine Zeile weiter
Wend
Range("A8") = Range("A7")
Range("A11") = Range("A10")
Range("A14") = Range("A13")
Range("A17") = Range("A16")
Range("A20") = Range("A19")
Range("A23") = Range("A22")
Range("A26") = Range("A25")
End Sub
Muster Datei
Gruß
fedjo