Ich möchte aus einer Tabelle mit zwei verschiedenen Terminen (InDiePlanung und AusDerPlanung) die Differenz der beiden Datumsangaben berechnen und mir wieder ausgeben lassen. Wenn in beiden Terminspalten ein Datum steht, solls berechnet werden. Wenn in einer Spalte kein Datum steht, soll die Aussage "n.a." angezeigt werden. Die Tabelle umfasst 7023 Positionen. Eigentlich gar nicht so schwer, aber ich bekomm in der Zeile "Intervall(i, 1) = DateDiff("d", .Cells(i, 7), .Cells(i, 18))" immer eine Fehlermeldung "Unverträgliche Datentypen".
Kann mir da bitte jemand weiterhelfen?
Viele Grüße
Sub TEST1()
Dim Intervall(1 To 7023, 1)
Dim i As Date
With Worksheets("Tabelle1")
For i = 1 To 7023
If .Cells(i, 7) "" And .Cells(i, 18) "" Then
Intervall(i, 1) = DateDiff("d", .Cells(i, 7), .Cells(i, 18))
Else: Intervall(i, 1) = "n.a."
End If
Next i
End With
Sheets("Bearbeitungsdauer").Range("F1:F7023") = Application.Transpose(Intervall)
End Sub