TextBox färben
Frank
Ich bin wie immer hilflos und benötige bitte, bitte eure Hilfe.
Dank dieses Forums bekam ich folgenden Code:
If Weekday(CDate(TextBox1), vbMonday) = 1 Then TextBox1.BackColor = &H80000005
If Weekday(CDate(TextBox1), vbMonday) = 2 Then TextBox1.BackColor = &H80000005
If Weekday(CDate(TextBox1), vbMonday) = 3 Then TextBox1.BackColor = &H80000005
If Weekday(CDate(TextBox1), vbMonday) = 4 Then TextBox1.BackColor = &H80000005
If Weekday(CDate(TextBox1), vbMonday) = 5 Then TextBox1.BackColor = &H80000005
If Weekday(CDate(TextBox1), vbMonday) = 6 Then TextBox1.BackColor = &HFF0000
If Weekday(CDate(TextBox1), vbMonday) = 7 Then TextBox1.BackColor = &HFF&
Nun möchte ich aber auch noch, dass wenn das Datum ein Feiertag ist, die TextBox rot eingefärbt wird. Die Feiertage stehen in der Tabelle2 Spalte A1:A11.
Kann mir da jemand weiter helfen?
Besten Dank im Vorraus und 'ne gute Woche sagt herzlichst
Frank H.