Fehlende Termine hinzufügen VBA
Ich muss fehlende Daten in eine Zeile einfügen, ohne die duplizierten Daten zu löschen (für ein Abrechnungsprogramm). Beispieldaten:
DATE
01/02/2016
02/02/2016
03/02/2016
03/02/2016
03/02/2016
06/02/2016
07/02/2016
08/02/2016
Mein Code wiederholt und löscht die doppelten Daten in einer Endlosschleife. Warum passiert das
Sub InsertMissingDates()
Dim i As Long
Dim RowCount As Long
i = 4
Do
If Cells(i, 1) + 1 <> Cells(i + 1, 1) Then
Rows(i + 1).Insert
Cells(i + 1, 1) = Cells(i, 1) + 1
End If
i = i + 1
Loop Until Cells(i + 1, 1) = "31.10.2016"
End Sub