Office: Zellenfarbe bei best. Wert einer anderen Zelle

Hallo Leute
ich versuche mir mit Büchern und mit Hilfe dieses Forums ( Mein Dank gilt allen "Profis" hier!!! ), VBA und die anderen Geheimnisse von Exel, beizubiegen.
Habe hier auch einen tollen Code gefunden, welcher die Arbeit mit der Datei vervielfacht hat.
Nun habe ich folgendes Problem:
Ich hätte nun gern eine rote Hintergrundfarbe für die entsprechende Zelle, wenn die darüberliegende Zelle einen anderen Wert enthät, außer bei den case´s "U" "WOF" usw..
Ich nutze die Version 2003.
Hier der Code den ich schon habe:

Code:

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
ActiveSheet.Unprotect
    Dim RaBereich As Range, RaZelle As Range
    
    Set RaBereich = Range("B32:FL237")

    For Each RaZelle In Range(Target.Address)
        If Not Intersect(RaZelle, RaBereich) Is Nothing Then
            Select Case UCase(RaZelle.Value)
                Case "U"
                    RaZelle.Interior.ColorIndex = 4
                    RaZelle.Font.ColorIndex = 1
                    
                Case "WOF"
                    RaZelle.Interior.ColorIndex = 4
                    RaZelle.Font.ColorIndex = 1
                    
                Case "DA"
                    RaZelle.Interior.ColorIndex = 7
                    RaZelle.Font.ColorIndex = 1
                    
                Case "E"
                    RaZelle.Interior.ColorIndex = 46
                    RaZelle.Font.ColorIndex = 1
                    
                Case "L"
                    RaZelle.Interior.ColorIndex = 46
                    RaZelle.Font.ColorIndex = 1
                    
                Case "O"
                    RaZelle.Interior.ColorIndex = 4
                    RaZelle.Font.ColorIndex = 1
                    
                Case Else
                    RaZelle.Interior.ColorIndex = xlNone
                    RaZelle.Font.ColorIndex = 1
                    
            End Select
        End If
    Next RaZelle
    Set RaBereich = Nothing
    ActiveSheet.Protect
End Sub

 

Hallo!

Ohne deinen Programmierdrang mindern zu wollen, aber reicht dir dafür nicht die "bedingte Formatierung"???
Wenn es denn unbedingt in VBA sein soll, dann hilft dir der Befehl ".Range(xy).Offset(-1,0)" um eine Zeile höher zu rutschen.

 

Hallo!

Ohne deinen Programmierdrang mindern zu wollen, aber reicht dir dafür nicht die "bedingte Formatierung"???
Wenn es denn unbedingt in VBA sein soll, dann hilft dir der Befehl ".Range(xy).Offset(-1,0)" um eine Zeile höher zu rutschen.

 

Hallo!

Ohne deinen Programmierdrang mindern zu wollen, aber reicht dir dafür nicht die "bedingte Formatierung"???
Wenn es denn unbedingt in VBA sein soll, dann hilft dir der Befehl ".Range(xy).Offset(-1,0)" um eine Zeile höher zu rutschen.

 

Hallo!

Ohne deinen Programmierdrang mindern zu wollen, aber reicht dir dafür nicht die "bedingte Formatierung"???
Wenn es denn unbedingt in VBA sein soll, dann hilft dir der Befehl ".Range(xy).Offset(-1,0)" um eine Zeile höher zu rutschen.

 

Hallo!

Ohne deinen Programmierdrang mindern zu wollen, aber reicht dir dafür nicht die "bedingte Formatierung"???
Wenn es denn unbedingt in VBA sein soll, dann hilft dir der Befehl ".Range(xy).Offset(-1,0)" um eine Zeile höher zu rutschen.

 

Sorry, das Forum spinnt offensichtlich...
SOOO deutlich wollte ich es nun auch nicht sagen...

 

Hallo schatzi
leider hilft mir die bed. Formatierung da nicht weiter, da diese ALLE unterschiedlichen Felder mit rotem Hintergrung belegt.
Es sollen aber nur diese rot markiert werden , welche NICHT mit u, DA, L, k, o oder wof belegt sind.
Es steht also in der oberen Zeile der Solldienstplan und in der unteren Spalte der Istdienstplan, wobei in dieser Spalte die freinen Tage mit den Kürzeln u, o und wof grün und Krankheitstage (k) blau markiert sind.
Jetzt kommt es aber auch vor, dass der Istplan eine andere Schicht als der Sollplan vorsieht, diese Änderungen sollen nun rot hervorgehoben werden.

 

Hallo!

???
Das ist ja auch nicht der Sinn einer BEDINGTEN Formatierung.

Ja eben. Dann schreib' doch deine Bedingung entsprechend:
Formel ist: =UND(A1<>"u";A1<>"DA";A1<>"L";...)

 

Danke!!
Funzt prima.