Als Antwort auf diesen Beitrag
Hey,
Ich habe sowas gefunden im Netz, aber weiß nicht ob oder wie man das einsetzen könnte.
Sub MonatInZahl2()
Dim monatText As String
Dim monatZahl As Integer
monatText = "Mai"
Select Case LCase(monatText)
Case "januar", "jan": monatZahl = 1
Case "februar", "feb": monatZahl = 2
Case "märz", "mär": monatZahl = 3
Case "april", "apr": monatZahl = 4
Case "mai": monatZahl = 5
Case "juni", "jun": monatZahl = 6
Case "juli", "jul": monatZahl = 7
Case "august", "aug": monatZahl = 8
Case "september", "sep": monatZahl = 9
Case "oktober", "okt": monatZahl = 10
Case "november", "nov": monatZahl = 11
Case "dezember", "dez": monatZahl = 12
Case Else: monatZahl = 0 ' Ungültig
End Select
MsgBox monatZahl ' Gibt 6 aus
End Sub
und das hier
Dim aMonthName, aMonthNumber 'Array
Cancel = True
aMonthName = Array("Januar", "Februar", "März", "April", "May", "Juni", "July", "August", "September", "October", "November", "December")
aMonthNumber = Array("01", "02", "03", "04", "05", "06", "07", "08", "09", "10", "11", "12")
sMonth = Left(sDate, 3)
For i = 0 To UBound(aMonthName)
If aMonthName(i) = sMonth Then
sMonth = aMonthNumber(i)
End If
Next i
keine Ahnung ob ich sowas für meinen Code gebrauchen könnte