Wie ändert man den Wert basierend auf der Zellenfarbe in Excel?

Dieser Artikel beschreibt, wie sich Zellenwerte automatisch anhand ihrer Hintergrundfarbe in Excel ändern lassen. Zum Beispiel: Wenn Zellen im ausgewählten Bereich mit roter Hintergrundfarbe gefüllt sind, werden diese Zellen mit der Zahl 1 befüllt, und für Zellen mit blauer Hintergrundfarbe wird die Zahl 0 eingefügt.

Wert basierend auf Zellenfarbe mit VBA-Code ändern

Wert basierend auf Zellenfarbe mit VBA-Code ändern

Sie können den folgenden VBA-Code ausführen, um den Wert basierend auf der Zellenfarbe in Excel zu ändern. Gehen Sie wie folgt vor.

1. Wählen Sie den Bereich aus, in dem Sie die Werte basierend auf der Hintergrundfarbe ändern möchten, und drücken Sie gleichzeitig die Tasten Alt + F11, um das Fenster Microsoft Visual Basic for Applications zu öffnen.

2. Klicken Sie im Fenster Microsoft Visual Basic for Applications auf Einfügen > Modul, und kopieren Sie den folgenden VBA-Code in das Modulfenster.

VBA-Code: Wert basierend auf Zellenfarbe in Excel ändern

Sub ChangeValueBasedOnCellColor()
    Dim rg As Range
    Dim xRg As Range
    Set xRg = Selection.Cells
    Application.DisplayAlerts = False
    For Each rg In xRg
        With rg
            Select Case .Interior.Color
                Case Is = 255 'Red
                    .Value = 1
                Case Is = 15773696 'Blue
                    .Value = 0
            End Select
        End With
    Next
    Application.DisplayAlerts = False
End Sub

3. Drücken Sie die Taste F5, um den Code auszuführen. Anschließend sehen Sie, dass alle roten Zellen im ausgewählten Bereich mit der Zahl 1 gefüllt sind und die blauen Zellen mit der Zahl 0, wie im folgenden Screenshot dargestellt.