VBA Feiertage einfügen
19.05.2007 20:02:00
Frank
Ich habe folgendes Problem:
Ich habe mir einen Schichtplan zurecht gestrickt der sich automatisch von Monat zu Monat aktualisiert (Rot gleich Frühschicht u.s.w.), das geht ja auch und die entsprechenden Farben werden auch angeteigt.
Feiertage werden in einer extra Spalte angezeigt geht auch, nun möchte ich aber das die entsprechende Schichtfarbe an Feiertagen nicht mehr angezeigt wird.
Mit einer Bedingten Formatierung geht es wohl nicht.
Hat da einer eine Idee?
Private Sub Worksheet_Change(ByVal Ziel As Excel.Range)
Dim Bereich As Range
Dim rngZelle As Range
Set Bereich = ActiveSheet.Range("c9:ag60")
For Each rngZelle In Bereich
Select Case rngZelle
Case "F"
rngZelle.Interior.ColorIndex = 38
Case "N"
rngZelle.Interior.ColorIndex = 19
Case "S"
rngZelle.Interior.ColorIndex = 24
Case Else
rngZelle.Interior.ColorIndex = xlNone
End Select
Next
End Sub
Anzeige