Anpassung der Zellenfarbe bezogen auf demZellenwert
09.07.2025 16:06:17
FrankP
ich möchte die Zellen auf Basis ihres Wertes einfärben. Da ich die Farbe der Zellen in der Spalte im Anschluss auswerten möchte mache ich es nicht mit der Bedingter Formatierung.
Beispiel:
Wenn der Wert 55 dann Style = "gut"
die For-Next Schleife bricht immer wieder an unterschiedlichen Stellen ab.
Gestartet wird dieses wenn ich eine Änderung vornehme (Workbook_SheetChange)
Eine Vermutung ist, dass die Zelle nicht geändert werden kann, wenn sie schon das Format besitzt (?)
Mit On Error Resume Next habe ich versucht den Fehler zu "ignorieren" - ohne Erfolg
Ist die Lösung Grundsätzlich falsch. Ich hoffe das mir jemand weiterhelfen kann.
Gruß Frank
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
'############SGT_A
Dim Bereich As Range
Dim Zelle As Range
Dim wert1 As Long
Dim wert2 As Long
'Grenzwerte
wert1 = 55
wert2 = 70
On Error Resume Next
For Each Zelle In Range("F4:F35")
If Zelle.Offset(0, -1).Interior.Color = 15189684 Then
Zelle.Style = "befreit" 'Farbe blau für "befreit"
ElseIf IsEmpty(Zelle) Then
Zelle.Style = "leer" 'Zellenfarbe löschen
ElseIf Zelle wert1 Then
Zelle.Style = "gut" 'Farbe grün
ElseIf Zelle >= wert1 And Zelle wert2 Then
Zelle.Style = "neutral" 'Farbe gelb
ElseIf Zelle >= wert2 Then
Zelle.Style = "schlecht" 'Farbe rot
End If
Next Zelle
End Sub
Next ZelleAnzeige