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 🙂
katharinakanns
