Bedingte Formatierung mit vba
08.07.2005 09:26:41
B
folgendes Problem, mit dem code unten lasse ich in die Eintragsspalten meines Schichtplaners die Ferien eintragen, indem die Eintragszellen mit der hintergrunfarbe hellgrau belegt werden. das funktioniert soweit auch.
Sub Ferien_ein()
Dim f As Integer
Dim Anfang As Date
Dim Ende As Date
For f = 530 To 534
Anfang = Worksheets("Fs-Planer").Cells(f, 1)
Ende = Worksheets("Fs-Planer").Cells(f, 2)
For z = 6 To 36 ' =Zeilen 6 bis 36
For s = 1 To 45 Step 4 '=Spalten A, E, E, ... , AS
If Cells(z, s) >= Anfang And Cells(z, s) Cells(z, s + 3).Interior.ColorIndex = 15 'hellgrau
End If
Next s
Next z
Next f
End Sub
mit dem nächsten code den ich im Blatt stehen habe werden Eintragszellen bei bestimmten Einträgen mit bestimmten Hintergrundfarben gefärbt, was auch funktioniert aber wenn ich in irgendeiner Eintragszelle die löschen Taste betätige werden meine hellgrau hinterlegten Ferienzellen wieder weiß, wie kann ich das vermeiden ?
Private Sub Worksheet_Change(ByVal Target As Range)
For z = 6 To 36 ' =Zeilen 6 bis 36
For s = 1 To 45 Step 4 '=Spalten A, E, E, ... , AS
Select Case Worksheets("Fs-Planer").Cells(z, s + 3)
Case Is = "0,1"
Cells(z, s + 3).Interior.ColorIndex = 36 'Hellgelb
Case Is = "0,05"
Cells(z, s + 3).Interior.ColorIndex = 19 'Beige
Case Is = "25%+10%"
Cells(z, s + 3).Interior.ColorIndex = 46 'Orange
Case Is = "0,25"
Cells(z, s + 3).Interior.ColorIndex = 46 'Orange
Case Is = ""
Cells(z, s + 3).Interior.ColorIndex = Value 'nix
End Select
Next s
Next z
End Sub
gruss Bryan