Wie lässt sich die Formfarbe in Excel basierend auf dem Zellenwert ändern?
Die Änderung der Formfarbe basierend auf einem bestimmten Zellenwert kann eine interessante Aufgabe in Excel sein. Wenn beispielsweise der Zellenwert in A1 kleiner als 100 ist, ist die Formfarbe rot; wenn A1 größer als 100 und kleiner als 200 ist, ist die Formfarbe gelb; und wenn A1 größer als 200 ist, ist die Formfarbe grün, wie im folgenden Screenshot gezeigt. Um die Farbe einer Form basierend auf einem Zellenwert zu ändern, wird in diesem Artikel eine Methode vorgestellt.
Formfarbe basierend auf Zellenwert mit VBA-Code ändern
Formfarbe basierend auf Zellenwert mit VBA-Code ändern
Der folgende VBA-Code ermöglicht es Ihnen, die Formfarbe automatisch anhand eines Zellenwerts anzupassen. Gehen Sie dazu wie folgt vor:
1. Klicken Sie mit der rechten Maustaste auf die Arbeitsblattregisterkarte, für die Sie die Formfarbe ändern möchten, und wählen Sie anschließend im Kontextmenü Code anzeigen aus. Fügen Sie im erscheinenden Fenster Microsoft Visual Basic for Applications den folgenden Code in das leere Modul-Fenster ein.
VBA-Code: Formfarbe basierend auf Zellenwert ändern:
Private Sub Worksheet_Change(ByVal Target As Range)
'Updateby Extendoffice 20160704
If Intersect(Target, Range("A1")) Is Nothing Then Exit Sub
If IsNumeric(Target.Value) Then
If Target.Value < 100 Then
ActiveSheet.Shapes("Oval 1").Fill.ForeColor.RGB = vbRed
ElseIf Target.Value >= 100 And Target.Value < 200 Then
ActiveSheet.Shapes("Oval 1").Fill.ForeColor.RGB = vbYellow
Else
ActiveSheet.Shapes("Oval 1").Fill.ForeColor.RGB = vbGreen
End If
End If
End Sub
2. Sobald Sie einen Wert in die Zelle A1 eingeben, ändert sich die Formfarbe entsprechend dem von Ihnen definierten Zellenwert.
Hinweis: Im obigen Code ist A1 der Zellenwert, anhand dessen die Formfarbe geändert wird, und Oval 1 ist der Name der eingefügten Form. Sie können diese Angaben nach Bedarf anpassen.
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