VBA Proggen

'Da es keinen VBA-Befehl zum Auslesen der aktuellen Kalenderwoche gibt, muss man sich mit einer Berechnung weiterhelfen.

'Erstellen Sie zunächst ein Modul und kopieren diesen Code hinein:

Dim kw As Integer
Dim i

Public Function ermittlung_kw()
    i = DateSerial(Year(Date + (8 - Weekday(Date)) Mod 7 - 3), 1, 1)
    kw = (Date - i - 3 + (Weekday(i) + 1) Mod 7) \ 7 + 1
End Function

Public Function lesen_kw()
    lesen_kw = kw
End Function

'Nun kopieren Sie in das erste Sheet diesen Code hinein:
Private Sub Worksheet_Activate()
    Dim kw As Integer
    ermittlung_kw
    kw = lesen_kw()
    MsgBox "Aktuelle Kalenderwoche: " & kw
End Sub

'Wenn Sie jetzt das erste Sheet aktivieren wird die aktuelle Kalenderwoche ermittelt und angezeigt.