Excel mit VBA

ID #1019

Aktuelle Kalenderwoche auslesen

'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.

Tags: -

Verwandte Artikel:

Letzte Änderung des Artikels: 2007-01-24 10:20
Verfasser des Artikels: Thomas Mrozek
Revision: 1.1

Digg it! Artikel ausdrucken Artikel weiterempfehlen Als PDF-Datei anzeigen
Übersetzungsvorschlag für Übersetzungsvorschlag für
Bewertung der Nützlichkeit dieses Artikels:

Durchschnittliche Bewertung: 4 von 5 (8 Bewertungen)

vollkommen überflüssig 1 2 3 4 5 sehr wertvoll

Kommentieren von diesen Artikel nicht möglich