den #Montag der #Kalenderwoche – in #VBA


Sie wollen den #Montag einer #Kalenderwoche ermitteln? Mit einer #VBA-#Funktion? Ich hätte da eine:

Public Function MontagKW(myKW As Long, Optional myJahr )
' gibt den Montag der übergebenen Kalenderwoche im übergebenen oder aktuellen Kalenderjahrzurück
Dim KWMon As Date
    If IsMissing(myJahr) Then myJahr = Year(Date)
    MontagKW = DateSerial(myJahr, 1, 1) + (myKW - 1) * 7
    MontagKW = MontagKW+ 1 - WeekDay(MontagKW, 2)
    If Format(MontagKW, "ww", 2, 2) <> myKW Then MontagKW = MontagKW+ 7
End Function

Diese Funktion können Sie nun aus Excel oder Access oder VBA heraus aufrufen, sie wird Ihnen hoffentlich viel Freude machen 🙂

 

Über katharinakanns

Microsoft Office Master Specialist mit viel Verständnis für IHR Geschäft - ich analysiere IHRE Situation, optimiere IHRE Prozesse, automatisiere IHRE Routineaufgaben, finde IHRE Lösung, unterrichte IHRE MitarbeiterInnen, mache Vorlagen mit IHRER CI, spare IHRE Zeit und IHR Geld. Ich freue mich darauf, SIE kennenlernen zu dürfen :-)
Dieser Beitrag wurde unter VBA abgelegt und mit , , , , , , verschlagwortet. Setze ein Lesezeichen auf den Permalink.

Kommentar verfassen

Trage deine Daten unten ein oder klicke ein Icon um dich einzuloggen:

WordPress.com-Logo

Du kommentierst mit Deinem WordPress.com-Konto. Abmelden / Ändern )

Twitter-Bild

Du kommentierst mit Deinem Twitter-Konto. Abmelden / Ändern )

Facebook-Foto

Du kommentierst mit Deinem Facebook-Konto. Abmelden / Ändern )

Google+ Foto

Du kommentierst mit Deinem Google+-Konto. Abmelden / Ändern )

Verbinde mit %s