Typen unverträglich
16.04.2003 09:11:00
Christian
ich habe ein Problem mit einer Funktion in VBA.
Die Funktion soll die Kalenderwoche berechnen:
Function Woche(Prüfdatum As Date) As Variant
Dim ErsterJanuar As Date
ErsterJanuar = DateSerial(Jahr, 1, 1)
Woche = Prüfdatum - ErsterJanuar + WeekDay(ErsterJanuar) - 2
Woche = Fix(Woche / 7 + 1)
End Function
Der Aufruf in der Prozedur lautet wie folgt:
(Das Datum soll er sich aus einer Tabelle holen)
Dim Termin As Date
Termin = Cells(3, 1).Value
Dim KW As Variant
KW = Woche(Termin)
Ich verstehe nicht, warum er dann die Fehlermeldung bringt, obwohl ich doch die gleichen Deklarationen benutzt habe.
Vielen Dank im voraus.