Hallo liebe Kollegen,
seit ein paar Stunden komme ich nicht mehr weiter. Alles funktioniert bis auf die DateDiff Funktion.
Jedes mal wenn ich es ausführe kommt der Laufzeitfehler 5, und ich verstehe nicht warum. Beim Debuggen wird auf die Zeile 35 mit der DateDiff Funktion verwiesen.
Bitte um hilfe,
mfg Philipp
Option Explicit
Sub test12():
Dim B As Integer
Dim LastRowName As Integer
Dim i As Integer
Dim LastRowSort As Integer
Dim D As Integer
Dim Nachtbeginn As Date
Dim ZeitEnde As Date
Dim Diff As Date
LastRowName = Tabelle2.Range("A" & Rows.Count).End(xlUp).Row
LastRowSort = Sheets(B + 1).Range("A" & Rows.Count).End(xlUp).Row
D = 2
''For B = 3 To LastRowName
B = 3
''For i = 2 To LastRowSort
i = 2
ZeitEnde = Sheets(B).Cells(i, 6).Value
Nachtbeginn = Sheets(2).Cells(2, 3).Value
If ZeitEnde > Nachtbeginn Then
DateDiff("hh:mm:ss", ZeitEnde, Nachtbeginn) = Sheets(B).Cells(D, 16).Value
D = D + 1
End If
''Next i
''Next B
End Sub
|