ich habe das Problem, dass ich in einem Makro sowohl Datum, als auch Kalenderwochen bekomme.
'Test Zeitraum
If Sheets(1).Cells(Zeile, 11) <> "" Then
'Wenn Brose Datum leer, aber Herstellerdatum nicht leer
Jahr = "20" & Right(Sheets(1).Cells(Zeile, 11), 2)
KW = Left(Sheets(1).Cells(Zeile, 11), 2) + 2 'Lieferant verursacht bedeutet 2 Wochen später ppm-relevant
Undatum = DINDay(Jahr, KW)
If Bis > Undatum Then
MsgBox "Zeile: " & Zeile & " " & Bis & " > " & Undatum 'Sheets(1).Cells(Zeile, 11)
TEST = False
End If
End If
Ich habe zwar die Funktion DINDay schon entdeckt, aber wie entlocke ich ihr ein Ergebnis? Irgendwie in der Form:
Undatum = DINDay(KW,Jahr)
Und dann in die Formel einsetzen ElseIf Bis > Datumswert Then ...
Aber irgendwie klappt die Formel nicht, muss ich dazu den Aufruf oder DINDay ansich verändern?