Hallo,
Mocht dat het enige probleem zijn, dan zou het nog redelijk meevallen :
In "For lRow = Cells(Cells.Rows.Count, "F").End(xlUp).Row To 2 Step -1" de 2 door een 3 vervangen zou volstaan.
De kwestie is dat er overal continu lege rijen zullen bijkomen, enerzijds omdat er al staan na de eerste uitvoering van de macro, anderzijds omdat er in "F" niet enkel de datum maar ook de tijd staat.
Maar niet getreurd : onderstaande code (uit gemakzucht verder gebouwd op die van Dotchiejack...) mag zo vaak als men wil worden uitgevoerd zonder dat er te veel lege rijen zullen komen.
Sub rij_invoegen()
Application.ScreenUpdating = False
Dim lRow As Long
For lRow = Cells(Cells.Rows.Count, "F").End(xlUp).Row To 3 Step -1
datum1 = ""
datum2 = ""
d = Cells(lRow, "F")
If d <> "" Then
datum1 = DateSerial(Year(d), Month(d), Day(d))
End If
d = Cells(lRow - 1, "F")
If d <> "" Then
datum2 = DateSerial(Year(d), Month(d), Day(d))
End If
If datum1 <> "" And datum2 <> "" Then
If datum1 <> datum2 Then
Rows(lRow).EntireRow.Insert
End If
End If
Next lRow
Application.ScreenUpdating = True
End Sub
Groeten,
pitufo