Vergleichen mit Liste in Array
29.11.2003 23:02:59
Hans-Jörg
Habe eine Abfrage die in eine Zelle einen Wert schreibt wenn....
Frage: wie kann ich dies eleganter Lösen?
z.B. wenn ich eine Liste in einem Parameterblatt anlege ?
Jan - 01
Feb - 02
Mrz - 03
usw....
Danach diese liste in ein Array packe und zum Vergleich verwende.
Jetzt habe ich folgenden Weg:
Sub bereichSuche
If InStr(1, strfile, "March") > 1 Then Monat = "03"
If InStr(1, strfile, "march") > 1 Then Monat = "03"
If InStr(1, strfile, "April") > 1 Then Monat = "04"
If InStr(1, strfile, "april") > 1 Then Monat = "04"
If InStr(1, strfile, "May") > 1 Then Monat = "05"
If InStr(1, strfile, "may") > 1 Then Monat = "05"
If InStr(1, strfile, "June") > 1 Then Monat = "06"
If InStr(1, strfile, "june") > 1 Then Monat = "06"
If InStr(1, strfile, "July") > 1 Then Monat = "07"
If InStr(1, strfile, "july") > 1 Then Monat = "07"
If InStr(1, strfile, "Aug") > 1 Then Monat = "08"
If InStr(1, strfile, "aug") > 1 Then Monat = "08"
If InStr(1, strfile, "Sep") > 1 Then Monat = "09"
If InStr(1, strfile, "sep") > 1 Then Monat = "09"
If InStr(1, strfile, "Okt") > 1 Then Monat = "10"
If InStr(1, strfile, "okt") > 1 Then Monat = "10"
End Sub
strfile = Dateiname
Ist dies vieleich mit einem Dreizeiler machbar?
Vielen Dank
Hans-Jörg