ich habe ein Problem, es geht um ein Makro, das Fehlende Daten einer Zeile ergänzt.
Ich habe auf Grund der Komplexität das ganze erst einmal für einfache, ganze Zahlen programmiert, das sieht dann so aus:
1
2
3
5
8
10
und folgender code fügt die fehlenden zahlen der reihe ein:
Do Until ActiveCell.Offset(1, 0).Value = ""
If ActiveCell.Offset(1, 0).Value ActiveCell.Value + 1 Then
ActiveCell.Offset(1, 0).EntireRow.Insert
ActiveCell.Offset(1, 0).FormulaR1C1 = "=R[-1]C+ 1 "
ActiveCell.Offset(1, 0).Copy
ActiveCell.Offset(1, 0).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Else
ActiveCell.Offset(1, 0).Select
End If
Loop
ich brauche das ganze allerdings für eine Kombination aus Datum und UHrzeit im Format "dd:mm:yyyy hh:nn " und er soll nicht eine ganze Zahl wie im Codebeispiel, sondern 2 Minuten zum vorherigen Wert dazu addieren.
Habt ihr da eine Idee wie ich sowas in vba umsetzen kann? bin noch ziemlich unbedarft was das angeht...
Vielen dank und liebe Grüße,
Jan