Gut, das du den Fehler gefunden hast.
Damit der Fehler nicht auftritt, muss die Bedingung bei folgender Verzweigung angepasst werden:
If Not .Cells(l - 1, WORKSHEET_COLUMN) = vbNullString Then
In deinem Fall noch zusätzlich der Wert der Überschrift:
If Not .Cells(l - 1, WORKSHEET_COLUMN) = vbNullString Or Not .Cells(l - 1, WORKSHEET_COLUMN) = "Datum" Then
Was möchtest du denn genau als Dezimalwert haben?
Den Zeitpunkt? Ergibt keinen Sinn, die verstrichene Zeit zwischen den Zeitpunkten? Das sind Sekunden - Millisekunden werden durch diese Funktion nicht ausgegeben.
Gruß
|