Code für n-te Woche im Monat

Question

Hallo,

ich habe eine excelformel, die bestimmt, welche Woche im Monat (1-5) ein bestimmtes Datum aufweist:
=KÜRZEN((T6-DATUM(JAHR(T6);MONAT(T6);0)+REST(DATUM(JAHR(T6);MONAT(T6);0);7)-2)/7)+1

Mir gelingt es aber leider nicht, diese Formel in einen entsprechenden Code umzuwandeln. Kann jemand helfen?
Danke und Gruß Andreas

Answer 1

Hallo Andreas,

wie wär's damit

Option Explicit

Sub test()
MsgBox WorksheetFunction.WeekNum(Range("T6"), 21)
End Sub

Gruß
Rainer

Answer 2

Hallo Rainer,

danke, aber ich brauche die n-te Woche des Monats - nicht des Jahres, also jeweils die 1,2,.....5. Woche für eine Terminplanung.
Hast du noch eine Idee?
Gruß Andreas

Answer 3

Hallo Andreas,

da habe ich Dich falsch verstanden.
So müsste es funktionieren.

Option Explicit

Sub test()
MsgBox Int((Range("T6") - DateSerial(Year(Range("T6")), Month(Range("T6")), 0) + DateSerial(Year(Range("T6")), Month(Range("T6")), 0) Mod 7 - 2) / 7 + 1)
End Sub

Gruß
Rainer

Answer 4

Hallo Rainer,

perfekt! Funktioniert einwandfrei. Ich hatte schon damit angefangen einen umständlichen Code aufzuschreiben, der das Problem lösen sollte - kann ich mir jetzt sparen.
Vielen Dank!
Gruß Andreas