Toggle-Button ändert sich nicht
27.03.2016 11:20:13
Jens
In jedem Arbeitsblatt der Tabelle habe ich in J5 eine Prüfvariable, die zeigt, ob der Monat abgeschlossen ist.
1 = abgeschlossen
"" = nicht abgeschlossen
Komischerweise wird aber jetzt der Text und die Hintergrundfarbe des Togglebuttons nicht mehr geändert. Die Prüfroutine läuft ohne Fehlermeldung durch. Dann wird J5 auf den Wert 1 gesetzt. Und dann müsste eigentlich der Hintergrund des Buttons rot werden und der Text sich auf Monat abgeschlossen ändern. Die Schleife wird einfach vor dem Ändern der Hintergrundfarbe abgebrochen und auch wenn ich dahinter Befehle einfüge werden diese nicht ausgeführt.
Warum ?
Viele Grüsse,
Jens
Private Sub CommandButton1_Click()
Dim lZeile As Long
Dim Fehler As Long
Fehler = False
For lZeile = 14 To 44
If Range("G" & lZeile).Value = "URLAUB" Then
If Range("C" & lZeile).Value "" Or _
Range("D" & lZeile).Value "" Then
MsgBox "Fehler in Zeile """ & lZeile & """ Bei Urlaubstagen entfällt die _
Angabe von Arbeits- oder Pausenzeiten."
Fehler = True
End If
End If
If Range("F" & lZeile).Value > 10 Then
MsgBox "Fehler in Zeile """ & lZeile & """ Die tägliche Arbeitszeit darf zehn _
Stunden nicht überschreiten."
Fehler = True
End If
If Range("F" & lZeile).Value 6 And Range("F" & lZeile).Value > 0 And (Range("E" & _
_
lZeile).Value * 1440)