Screenshot hilft wenig. Nachbauen tue ich mir das auch nicht.
Mich irritiert das deutsche und englische Monatsnamen durcheinander vorkommen. Dafür kann man sich eine Hilfsfunktion schreiben:
Option Explicit
Option Compare Text
Public Function GetMonthId(Month As String) As Integer
Select Case Month
Case "Januar", "Jan", "January"
GetMonthId = 1
Case "Februar", "Feb", "February"
GetMonthId = 2
Case "März", "Mrz", "March", "Mar"
GetMonthId = 3
Case "April", "Apr", "April"
GetMonthId = 4
Case "Mai", "Mai", "May", "May"
GetMonthId = 5
Case "Juni", "Jun", "June"
GetMonthId = 6
Case "Juli", "Jul", "July"
GetMonthId = 7
Case "August", "Aug", "August"
GetMonthId = 8
Case "September", "Sep", "September"
GetMonthId = 9
Case "Oktober", "Okt", "October", "Oct"
GetMonthId = 10
Case "November", "Nov", "November"
GetMonthId = 11
Case "Dezember", "Dez", "December", "Dec"
GetMonthId = 12
Case Else
GetMonthId = 0
End Select
End Function
Grüße
|