Probleme mit Combofeldern
02.02.2004 10:04:35
Werner
ich habe folgendes Problem. Ich habe 2 Combofelder, die ein Datum darstellen. D.h. im combofeld 1 sind die Tage 1-31 und im 2. combofeld stehen die Monate Januar bis Dezember zur Auswahl. Nun lass ich diese Daten in eine Variable reinschreiben, die als Date deklariert ist. Nun will ich, dass dieses Datum mit den Daten aus dem Kalenderblatt verglichen wird. Und wenn ein Datum des Combofeldes gleich einem des Kalenderblattes ist, sollen Zellen anders Farbig dargestellt werden.
Ich hoffe ich habe mich so ausgedrückt, dass es jeder versteht.
Nur das Problem ist, dass der CODE hier irgendwie falsch ist. Zu mindest färbt der Code mir nicht die Zellen ein. Wo liegt der Fehler??
Private Sub OK_Click()
a = Combo1 & "" & Combo2
Set bereich = Range("c1:c24")
For Each zelle In bereich
If zelle = a Then
Range(zelle, zelle.Offset(0, 1)).Interior.ColorIndex = 6
Else
Range(zelle, zelle.Offset(0, 1)).Interior.ColorIndex = x1none
End If
Next
Set bereich = Nothing
Betriebsferien.Hide
Ruhetage.Show
End Sub
Private Sub Abbrechen_Click()
Betriebsferien.Hide
End Sub
Kann mir jemand helfen???
Gruß Werner