Als Antwort auf diesen Beitrag
Moin!
Um die Langform eines Monatsnamens in die Monatszahl umzuwandeln, braucht es keine manuelle Auflistung, denn dies hat VBA build-in!
Application.GetCustomListsContents(8) ist Januar … Dezember
Folglich liefert folgende UDF
Function Monatszahl&(Monatsname$)
With Application
Monatszahl = .Match(Monatsname, .GetCustomListContents(8), 0)
End With
End Function
bei Übergabe von "September" die 9
Aufruf als Test z.B. so:
Sub Test()
Debug.Print Monatszahl("September")
End Sub
Ulf hat dankenswerterweise ja die entsprechende Konstanten-Enumeration aufgedröselt.
Gruß Ralf