VBA Code
30.01.2004 15:26:20
Werner
ich hab mal wieder Probleme mit meinem überalles geliebten VBA.
Zur Erklärung beschreibe ich mal was die Userform machen soll.
Also in dieser UserForm soll in zwei Combofeldern einmal der Tag (1 bis 31) und dann noch der Monat ausgesucht werde. Soweit funktioniert das ja auch. Nur wenn man jetzt auf den OK Button klicken soll, sollen dieses Datum in einem Kalender anders farbig dargestellt werden.
Dazu hab ich mir den Code da ausgedacht. Nur irgendwie funktioniert der nicht wirklich.
Kann mir da jemand helfen wo da der Fehler ist???
Private Sub OK_Click()
Set bereich = Range("c1:C2")
a = Combo1 & Combo2
For Each zelle In bereich
If a = zelle Then
Range(zelle, zelle.Offset(0, 1)).Interior.ColorIndex = 6
Else
Range(zelle, zelle.Offset(0, 1)).Interior.ColorIndex = x1none
'b = Combo3 & Combo4
'[f2] = b
End If
Next
Set bereich1 = Nothing
Betriebsferien.Hide
Ruhetage.Show
End Sub
Private Sub Abbrechen_Click()
Betriebsferien.Hide
End Sub
Danke Werner
Anzeige