Berechnung von Datumsdifferenz
05.10.2007 14:37:00
Datumsdifferenz
ich bekomme bei meinem Programm immer einen Fehler "Ungültiger Prozeduraufruf oder ungültiges Argument". Kann mir da bitte jemand weiterhelfen?
Ich hab zum Programm Code noch eine Tabelle mit werten bereitgestellt. https://www.herber.de/bbs/user/46551.xls
Gruß, Roman
Sub TEST()
Dim Intervall(1 To 3201, 6 To 7)
Dim j As Integer
For i = 1 To 3201
j = 1
If Worksheets("Werte").Cells(j + 1, 1) "" Or Worksheets("Werte").Cells(j + 1, 2) "" _
Then
Intervall(i, 6) = DateDiff(d, Worksheets("Werte").Cells(j + 1, 1), Worksheets("Werte") _
.Cells(j + 1, 2))
Else: Intervall(i, 6) = "n.a."
End If
j = j + 1
Next i
For i = 1 To 3201
Sheets("Result").Cells(i + 2, 6) = Intervall(i, 6)
Next i
End Sub
Anzeige