Hilfe der Code ist flasch
10.02.2004 13:09:48
Harald
ich habe hier mal einen code eingefügt. kann mir jemand sagen, dass was daran falsch ist? Das eigentliche an dem Programm ist, dass wenn man auf den ok button klickt die zelle anders farbig gestaltet wird wenn der wert in a gleich dem einer zelle ist. die zellen sind als datum formatiert.
Bitte helft mir...
Private Sub UserForm_Activate()
Dim i As Integer
Dim n As Integer
Dim a As Date
Dim b As Date
Dim bereich As Range
Dim zelle As Range
For i = 1 To 31
Combo1.AddItem (i)
Next i
For n = 1 To 31
Combo3.AddItem (n)
Next n
Combo2.AddItem ("Janunar")
Combo2.AddItem ("Februar")
Combo2.AddItem ("März")
Combo2.AddItem ("April")
Combo2.AddItem ("Mai")
Combo2.AddItem ("Juni")
Combo2.AddItem ("Juli")
Combo2.AddItem ("August")
Combo2.AddItem ("September")
Combo2.AddItem ("Oktober")
Combo2.AddItem ("November")
Combo2.AddItem ("Dezember")
Combo4.AddItem ("Janunar")
Combo4.AddItem ("Februar")
Combo4.AddItem ("März")
Combo4.AddItem ("April")
Combo4.AddItem ("Mai")
Combo4.AddItem ("Juni")
Combo4.AddItem ("Juli")
Combo4.AddItem ("August")
Combo4.AddItem ("September")
Combo4.AddItem ("Oktober")
Combo4.AddItem ("November")
Combo4.AddItem ("Dezember")
End Sub
Private Sub OK_Click()
a = Combo1 & Combo2
If zelle = a Then
MsgBox (a)
Set bereich = Range("c1:c24")
For Each zelle In bereich
If zelle.Text = a Then
MsgBox (a)
zelle.Offset(0, 1).Interior.ColorIndex = 3
Else
zelle.Offset(0, 1).Interior.ColorIndex = x1none
End If
Next
End If
Betriebsferien.Hide
Ruhetage.Show
End Sub
Private Sub Abbrechen_Click()
Betriebsferien.Hide
End Sub
MfG Harald