VBA-Syntax

06/02/2008 - 08:14 von Reinhard Schüll | Report spam
Hallo NG,

ich würde gerne diese Funktion (steht in Zelle B2)
=(A2-WOCHENTAG(A2;3)+3-DATUM(JAHR(A2-WOCHENTAG(A2;3)+3);1;4)+WOCHENTAG(DATUM(JAHR(A2-WOCHENTAG(A2;3)+3);1;4);3)-3)/7+1
in VBA verwenden.

In der Zelle A2 steht ein Datum. Das Ergebnis ist die Kalenderwoche.
Wie lautet bitte der VBA-Ausdruck?

Gruß Reinhard
 

Lesen sie die antworten

#1 Michael Mueller
06/02/2008 - 08:28 | Warnen spam
Hi Reinhard.

In der Zelle A2 steht ein Datum. Das Ergebnis ist die Kalenderwoche.
Wie lautet bitte der VBA-Ausdruck?



Ohne jetzt Deine Formel getestet zu haben:

Aufruf mit
KW = KW_DIN(Range("A2").Value)

Function KW_DIN(Datum As Date) As Integer
Dim t&
t = DateSerial(Year(Datum + (8 - Weekday(Datum)) Mod 7 - 3), 1, 1)
KW_DIN = (Datum - t - 3 + (Weekday(t) + 1) Mod 7) \ 7 + 1
End Function

HTH
Michi

Ähnliche fragen