Wie kann man einen Wert in Excel basierend auf der Zellenfarbe ändern?
In diesem Artikel geht es darum, den Zellenwert automatisch basierend auf seiner Hintergrundfarbe in Excel zu ändern. Wenn beispielsweise ausgewählte Zellen mit der Farbe Rot Hintergrundfarbe gefüllt sind, werden diese Zellen mit der Zahl 1 ausgefüllt; für blaue Hintergrundfarbe Zellen wird die Zahl 0 eingetragen.
Wert basierend auf Zellenfarbe mit VBA-Code ändern
Wert basierend auf Zellenfarbe mit VBA-Code ändern
Führen Sie den folgenden VBA-Code aus, um den Zellwert in Excel basierend auf der Zellenfarbe zu ändern – so geht’s:
1. Wählen Sie den Bereich aus, dessen Werte basierend auf der Hintergrundfarbe geändert werden sollen, und drücken Sie anschließend 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 fügen Sie anschließend den unten stehenden VBA-Code in das Modulfenster ein.
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 Sub3. 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 und die blauen Zellen mit der Zahl 0 gefüllt sind – wie im folgenden Screenshot dargestellt.
Beste Office-Produktivitätstools
Verbessern Sie Ihre Excel-Kenntnisse mit Kutools für Excel und erleben Sie Effizienz wie nie zuvor.Kutools für Excel bietet über 300 erweiterte Funktionen zur Steigerung der Produktivität und Zeit sparen.Klicken Sie hier, um die Funktion zu erhalten, die Sie am dringendsten benötigen...
Office Tab bringt eine tabbasierte Oberfläche in Office und macht Ihre Arbeit viel einfacher
- Aktivieren Sie tabbasiertes Bearbeiten und Lesen in Word, Excel, PowerPoint, Publisher, Access, Visio und Project.
- Öffnen und erstellen Sie mehrere Dokumente in neuen Registerkarten desselben Fensters – statt jedes in einem separaten Fenster zu öffnen.
- Steigert Ihre Produktivität um 50 % und erspart Ihnen täglich Hunderte von Mausklicks!
Alle Kutools-Add-Ins – ein Installationsprogramm
Kutools for Office-Paket bündelt Add-Ins für Excel, Word, Outlook und PowerPoint sowie Office Tab Pro – ideal für Teams, die mit mehreren Office-Anwendungen arbeiten.
- Alles-in-einem-Paket— Add-Ins für Excel, Word, Outlook & PowerPoint sowie Office Tab Pro
- Ein Installationsprogramm, eine Lizenz— innerhalb weniger Minuten eingerichtet (MSI-fähig)
- Funktioniert besser zusammen— optimierte Produktivität über alle Office-Anwendungen hinweg
- 30-tägige Vollversion zum Testen— keine Registrierung, keine Kreditkarte erforderlich
- Bestes Preis-Leistungs-Verhältnis— sparen Sie im Vergleich zum Kauf einzelner Add-Ins