Hallo liebe Spezialisten,
ich brauch Hilfe. Ich möchte eine Kontrolle einbauen, dass wenn der User einer Userform ein Datum eingibt, welches ein Feiertag z.B. in den USA oder in Grossbritanien ist, eine MsgBox erscheint und ihn darauf hinweist. Kann mir jemand sagen wie ich in einem Case die Argumente Datum und Währung abfragen lasse ? Das ist das was ich bisher habe:
Select Case TextBox2.Text
Case Is = "2.1.2006", "16.1.2006", "20.2.2006", "29.5.2006", "4.7.2006", "4.9.2006", "9.10.2006", "23.11.2006", "23.11.2006", "25.12.2006" And ComboBox1 = "USD"
MsgBox ("Feiertag in den USA !")
TextBox2.SetFocus
With TextBox2
.SelStart = 0
.SelLength = Len(.Text)
End With
Exit Sub
Case Is = "2.1.2006", "13.4.2006", "17.4.2006", "1.5.2006", "29.5.2006", "28.8.2006", "25.12.2006", "26.12.2006" And ComboBox1 = "GBP"
MsgBox ("Feiertag in Großbritanien !")
TextBox2.SetFocus
With TextBox2
.SelStart = 0
.SelLength = Len(.Text)
End With
Exit Sub
End Select
Viele liebe Grüße
Christian