Hallo ans Forum
Ich möchte Zellen bedingt Formatieren. Dazu hab ich folgenden Code der auch funktioniert.
Dim RaBereichDispo As Range ' Variable für Bereich Disponenten
Dim RABereichETF As Range ' Variable für Bereich ET Frühschicht
Dim RaZelle As Range ' Variable für Zelle
' Bereich der Wirksamkeit
Set RaBereichDispo = Range("B61:AF61, B62:AF62")
For Each RaZelle In RaBereichDispo
If Not Intersect(RaZelle, RaBereichDispo) Is Nothing Then
With RaZelle
Select Case .Value ' Zellinhalt vergleichen
Case 0
.Font.ColorIndex = 2 ' Schriftfarbe Weiss
.Interior.Color = 255 ' Füllfarbe Rot
Case 1
.Font.ColorIndex = 1 ' Schriftfarbe Schwarz
.Interior.ColorIndex = xlNone ' Füllfarbe ohne
Case 2
.Font.ColorIndex = 1 ' Schriftfarbe Schwarz
.Interior.Color = 65535 ' Füllfarbe Gelb
'Case 3
' .Font.ColorIndex = 2 ' Schriftfarbe Weiss
' .Interior.Color = 255 ' Füllfarbe Rot
Case Else
.Interior.ColorIndex = xlNone ' keine Füllfarbe
End Select
End With
End If
Next RaZelle
Jetzt möchte ich das ganze aber erweitern das die Zellen abhängig von einem Wert in den Spalten der Zeile 4 formatiert werden.
Erklärung: In der Zeile 4 stehen für die Wochentage Mo Di usw. drin. Abhängig davon gibt es in dem Range-Bereich nicht nur den Case 0-3 sondern auch noch weitere die ich (so denk ich jetzt mal) mit einer If abfrage weiter bearbeiten möchte.
In der Hoffnung das jemand mit meiner Erklärung was anfangen kann hoffe ich auf tolle Ideen.
Besten Dank im Voraus
Gruß Olaf