Forumbeitrag
Excel-Version des Fragestellers:
2016
Erfahrungslevel des Fragestellers:
Excel gut - VBA gut
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