Bedingte Excel-Formatierung
Mit der Bedingten Formatierung von Excel können Sie Regeln definieren, die die Zellenformatierung bestimmen.
Sie können beispielsweise eine Regel erstellen, die Zellen hervorhebt, die bestimmte Kriterien erfüllen. Beispiele beinhalten:
- Zahlen, die in einen bestimmten Bereich fallen (z. B. kleiner als 0).
- Die Top 10 Elemente in einer Liste.
- Erstellen einer „Heatmap“.
- „Formelbasierte“ Regeln für praktisch jede bedingte Formatierung.
In Excel finden Sie Bedingte Formatierung in der Multifunktionsleiste unter Start > Stile (ALT > H > L).
Um Ihre eigene Regel zu erstellen, klicken Sie auf „Neue Regel“ und ein neues Fenster erscheint:
Bedingte Formatierung in VBA
Auf alle diese Funktionen der bedingten Formatierung kann mit VBA zugegriffen werden.
Beachten Sie, dass beim Einrichten der bedingten Formatierung aus dem VBA-Code Ihre neuen Parameter im Excel-Front-End-Fenster für die bedingte Formatierung angezeigt werden und für den Benutzer sichtbar sind. Der Benutzer kann diese bearbeiten oder löschen, es sei denn, Sie haben das Arbeitsblatt gesperrt.
Beim Speichern des Arbeitsblatts werden auch die Regeln für die bedingte Formatierung gespeichert
Regeln für die bedingte Formatierung gelten speziell für ein bestimmtes Arbeitsblatt und einen bestimmten Zellbereich. Wenn sie an anderer Stelle in der Arbeitsmappe benötigt werden, müssen sie auch auf diesem Arbeitsblatt eingerichtet werden.
Praktische Anwendungen der bedingten Formatierung in VBA
Möglicherweise haben Sie einen großen Teil der Rohdaten aus einer CSV-Datei (durch Kommas getrennte Werte) oder aus einer Datenbanktabelle oder Abfrage in Ihr Arbeitsblatt importiert. Dies kann in ein Dashboard oder einen Bericht einfließen, wobei sich ändernde Zahlen von einer Periode in eine andere importiert werden.
Wenn sich eine Zahl ändert und außerhalb eines akzeptablen Bereichs liegt, möchten Sie dies möglicherweise hervorheben, z. Hintergrundfarbe der Zelle in Rot, und Sie können dies tun, um die bedingte Formatierung einzurichten. Auf diese Weise wird der Benutzer sofort zu dieser Nummer gezogen und kann dann untersuchen, warum dies geschieht.
Sie können VBA verwenden, um die bedingte Formatierung ein- oder auszuschalten. Sie können VBA verwenden, um die Regeln für einen Zellbereich zu löschen oder sie wieder zu aktivieren. Es kann eine Situation geben, in der es einen guten Grund für eine ungewöhnliche Zahl gibt, aber wenn der Benutzer das Dashboard oder den Bericht einer höheren Managementebene präsentiert, möchte er in der Lage sein, die „Alarmglocken“ zu entfernen.
Auf den importierten Rohdaten möchten Sie möglicherweise auch hervorheben, wo Zahlen lächerlich groß oder lächerlich klein sind. Der importierte Datenbereich hat normalerweise für jeden Zeitraum eine andere Größe, sodass Sie VBA verwenden können, um die Größe des neuen Datenbereichs auszuwerten und nur für diesen Bereich bedingte Formatierung einzufügen.
Sie können auch eine Situation haben, in der eine sortierte Liste von Namen mit numerischen Werten für jeden vorhanden ist, z. Mitarbeitergehalt, Prüfungsnoten. Bei der bedingten Formatierung können Sie abgestufte Farben verwenden, um von der höchsten zur niedrigsten zu wechseln, was für Präsentationszwecke sehr beeindruckend aussieht.
Die Namensliste hat jedoch nicht immer eine statische Größe, und Sie können VBA-Code verwenden, um die Skala der abgestuften Farben entsprechend den Änderungen der Bereichsgröße zu aktualisieren.
Ein einfaches Beispiel zum Erstellen eines bedingten Formats für einen Bereich
In diesem Beispiel wird die bedingte Formatierung für einen Zellbereich (A1:A10) in einem Arbeitsblatt eingerichtet. Wenn die Zahl im Bereich zwischen 100 und 150 liegt, ist die Hintergrundfarbe der Zelle rot, andernfalls hat sie keine Farbe.
| 1234567891011121314 | Sub ConditionalFormattingExample()„Bereich definieren“Dimmen Sie MyRange als BereichSet MyRange = Range("A1:A10")'Vorhandene bedingte Formatierung aus Bereich löschenMyRange.FormatConditions.Delete„Bedingte Formatierung anwenden“MyRange.FormatConditions.Add Typ:=xlCellValue, Operator:=xlBetween, _Formel1:="=100", Formel2:="=150"MyRange.FormatConditions(1).Interior.Color = RGB(255, 0, 0)End Sub |
Beachten Sie, dass wir zuerst den Bereich definieren MyRange bedingte Formatierung anwenden.
Als nächstes löschen wir alle vorhandenen bedingten Formatierungen für den Bereich. Dies ist eine gute Idee, um zu verhindern, dass bei jeder Ausführung des Codes dieselbe Regel hinzugefügt wird (natürlich ist dies nicht unter allen Umständen angemessen).
Farben werden durch numerische Werte angegeben. Es ist eine gute Idee, dafür die RGB-Notation (Rot, Grün, Blau) zu verwenden. Sie können dafür Standard-Farbkonstanten verwenden, z.B. vbRed, vbBlue, aber Sie sind auf acht Farboptionen beschränkt.
Es stehen über 16,7 Millionen Farben zur Verfügung, und mit RGB können Sie auf alle zugreifen. Dies ist viel einfacher, als sich zu erinnern, welche Zahl zu welcher Farbe gehört. Jede der drei RGB-Farbnummern reicht von 0 bis 255.
Beachten Sie, dass der Parameter „xlBetween“ inklusiv ist, sodass Zellenwerte von 100 oder 150 die Bedingung erfüllen.
Multibedingte Formatierung
Möglicherweise möchten Sie mehrere bedingte Regeln innerhalb Ihres Datenbereichs einrichten, damit alle Werte in einem Bereich von unterschiedlichen Bedingungen abgedeckt werden:
| 12345678910111213141516171819 | Sub MultipleConditionalFormattingExample()Dimmen Sie MyRange als Bereich'Bereichsobjekt erstellenSet MyRange = Range("A1:A10")'Vorherige bedingte Formate löschenMyRange.FormatConditions.Delete'Erste Regel hinzufügenMyRange.FormatConditions.Add Typ:=xlCellValue, Operator:=xlBetween, _Formel1:="=100", Formel2:="=150"MyRange.FormatConditions(1).Interior.Color = RGB(255, 0, 0)'Zweite Regel hinzufügenMyRange.FormatConditions.Add Typ:=xlCellValue, Operator:=xlLess, _Formel1:="=100"MyRange.FormatConditions(2).Interior.Color = vbBlue'Dritte Regel hinzufügenMyRange.FormatConditions.Add Typ:=xlCellValue, Operator:=xlGreater, _Formel1:="=150"MyRange.FormatConditions(3).Interior.Color = vbYellowEnd Sub |
In diesem Beispiel wird die erste Regel wie zuvor mit der Zellenfarbe Rot eingerichtet, wenn der Zellenwert zwischen 100 und 150 liegt.
Dann werden zwei weitere Regeln hinzugefügt. Wenn der Zellenwert kleiner als 100 ist, ist die Zellenfarbe blau, und wenn er größer als 150 ist, ist die Zellenfarbe gelb.
In diesem Beispiel müssen Sie sicherstellen, dass alle Zahlenmöglichkeiten abgedeckt sind und sich die Regeln nicht überschneiden.
Wenn sich leere Zellen in diesem Bereich befinden, werden sie blau angezeigt, da Excel sie immer noch mit einem Wert unter 100 annimmt.
Um dies zu umgehen, fügen Sie eine weitere Bedingung als Ausdruck hinzu. Dies muss als erste Bedingungsregel im Code hinzugefügt werden. Bei mehreren Regeln ist es sehr wichtig, dass die Ausführungsreihenfolge richtig ist, da sonst die Ergebnisse unvorhersehbar sein können.
| 1234567891011121314151617181920212223 | Sub MultipleConditionalFormattingExample()Dimmen Sie MyRange als Bereich'Bereichsobjekt erstellenSet MyRange = Range("A1:A10")'Vorherige bedingte Formate löschenMyRange.FormatConditions.Delete'Erste Regel hinzufügenMyRange.FormatConditions.Add Typ:=xlExpression, Formula1:= _"=LEN(TRIM(A1))=0"MyRange.FormatConditions(1).Interior.Pattern = xlNone'Zweite Regel hinzufügenMyRange.FormatConditions.Add Typ:=xlCellValue, Operator:=xlBetween, _Formel1:="=100", Formel2:="=150"MyRange.FormatConditions(2).Interior.Color = RGB(255, 0, 0)'Dritte Regel hinzufügenMyRange.FormatConditions.Add Typ:=xlCellValue, Operator:=xlLess, _Formel1:="=100"MyRange.FormatConditions(3).Interior.Color = vbBlue'Vierte Regel hinzufügenMyRange.FormatConditions.Add Typ:=xlCellValue, Operator:=xlGreater, _Formel1:="=150"MyRange.FormatConditions(4).Interior.Color = RGB(0, 255, 0)End Sub |
Dies verwendet den Typ von xlExpression und verwendet dann eine Standard-Excel-Formel, um zu bestimmen, ob eine Zelle anstelle eines numerischen Werts leer ist.
Das FormatConditions-Objekt ist Teil des Range-Objekts. Es verhält sich wie eine Sammlung, deren Index bei 1 beginnt. Sie können dieses Objekt mit einer For… Next- oder For… Each-Schleife durchlaufen.
Löschen einer Regel
Manchmal müssen Sie möglicherweise eine einzelne Regel aus mehreren Regeln löschen, wenn sie den Datenanforderungen nicht entspricht.
| 12345678910111213 | Sub DeleteConditionalFormattingExample()Dimmen Sie MyRange als Bereich'Bereichsobjekt erstellenSet MyRange = Range("A1:A10")'Vorherige bedingte Formate löschenMyRange.FormatConditions.Delete'Erste Regel hinzufügenMyRange.FormatConditions.Add Typ:=xlCellValue, Operator:=xlBetween, _Formel1:="=100", Formel2:="=150"MyRange.FormatConditions(1).Interior.Color = RGB(255, 0, 0)'Regel löschenMyRange.FormatConditions(1).LöschenEnd Sub |
Dieser Code erstellt eine neue Regel für den Bereich A1:A10 und löscht sie dann. Sie müssen die richtige Indexnummer für das Löschen verwenden, also überprüfen Sie im Excel-Frontend „Regeln verwalten“ (dies zeigt die Regeln in der Reihenfolge der Ausführung an), um sicherzustellen, dass Sie die richtige Indexnummer erhalten. Beachten Sie, dass es in Excel keine Rückgängig-Funktion gibt, wenn Sie eine bedingte Formatierungsregel in VBA löschen, anders als wenn Sie dies über das Excel-Front-End tun.
Eine Regel ändern
Da die Regeln eine Sammlung von Objekten sind, die auf einem bestimmten Bereich basieren, können Sie mit VBA leicht Änderungen an bestimmten Regeln vornehmen. Die tatsächlichen Eigenschaften nach dem Hinzufügen der Regel sind schreibgeschützt, Sie können sie jedoch mit der Modify-Methode ändern. Eigenschaften wie Farben werden gelesen/geschrieben.
| 123456789101112131415 | Sub ChangeConditionalFormattingExample()Dimmen Sie MyRange als Bereich'Bereichsobjekt erstellenSet MyRange = Range("A1:A10")'Vorherige bedingte Formate löschenMyRange.FormatConditions.Delete'Erste Regel hinzufügenMyRange.FormatConditions.Add Typ:=xlCellValue, Operator:=xlBetween, _Formel1:="=100", Formel2:="=150"MyRange.FormatConditions(1).Interior.Color = RGB(255, 0, 0)'Regel ändernMyRange.FormatConditions(1).Modify xlCellValue, xlLess, "10"‘Regelfarbe ändernMyRange.FormatConditions(1).Interior.Color = vbGreenEnd Sub |
Dieser Code erstellt ein Bereichsobjekt (A1:A10) und fügt eine Regel für Zahlen zwischen 100 und 150 hinzu. Wenn die Bedingung wahr ist, ändert sich die Zellenfarbe in Rot.
Der Code ändert dann die Regel in Zahlen unter 10. Wenn die Bedingung wahr ist, ändert sich die Zellenfarbe jetzt in Grün.
Verwenden eines abgestuften Farbschemas
Bei der bedingten Formatierung von Excel können abgestufte Farben für einen Zahlenbereich in auf- oder absteigender Reihenfolge verwendet werden.
Dies ist sehr nützlich, wenn Sie Daten wie Verkaufszahlen nach geografischem Gebiet, Stadttemperaturen oder Entfernungen zwischen Städten haben. Mit VBA haben Sie den zusätzlichen Vorteil, dass Sie Ihr eigenes abgestuftes Farbschema wählen können, anstelle der Standardfarben, die im Excel-Frontend angeboten werden.
| 1234567891011121314151617181920212223242526272829 | Sub GraduatedColors()Dimmen Sie MyRange als Bereich'Bereichsobjekt erstellenSet MyRange = Range("A1:A10")'Vorherige bedingte Formate löschenMyRange.FormatConditions.Delete'Maßstabstyp definierenMyRange.FormatConditions.AddColorScale ColorScaleType:=3'Farbe für den niedrigsten Wert im Bereich auswählenMyRange.FormatConditions(1).ColorScaleCriteria(1).Type = _xlConditionValueLowestValueMit MyRange.FormatConditions(1).ColorScaleCriteria(1).FormatColor.Farbe = 7039480Ende mit'Farbe für die mittleren Werte im Bereich auswählenMyRange.FormatConditions(1).ColorScaleCriteria(2).Type = _xlConditionValuePercentileMyRange.FormatConditions(1).ColorScaleCriteria(2).Value = 50'Wählen Sie die Farbe für den Mittelpunkt des BereichsMit MyRange.FormatConditions(1).ColorScaleCriteria(2).FormatColor.Farbe = 8711167Ende mit'Farbe für den höchsten Wert im Bereich auswählenMyRange.FormatConditions(1).ColorScaleCriteria(3).Type = _xlConditionValueHighestValueMit MyRange.FormatConditions(1).ColorScaleCriteria(3).FormatColor.Farbe = 8109667Ende mitEnd Sub |
Wenn dieser Code ausgeführt wird, werden die Zellenfarben entsprechend den aufsteigenden Werten im Bereich A1:A10 abgestuft.
Dies ist eine sehr beeindruckende Art, die Daten anzuzeigen und wird sicherlich die Aufmerksamkeit der Benutzer auf sich ziehen.
Bedingte Formatierung für Fehlerwerte
Wenn Sie über eine große Datenmenge verfügen, können Sie in Ihren verschiedenen Arbeitsblättern leicht einen Fehlerwert übersehen. Wenn dies einem Benutzer ungelöst präsentiert wird, kann dies zu großen Problemen führen und das Vertrauen des Benutzers in die Zahlen verlieren. Dies verwendet einen Regeltyp von xlExpression und eine Excel-Funktion von IsError, um die Zelle auszuwerten.
Sie können Code erstellen, damit alle Zellen mit Fehlern eine rote Zellenfarbe haben:
| 1234567891011 | Sub ErrorConditionalFormattingExample()Dimmen Sie MyRange als Bereich'Bereichsobjekt erstellenSet MyRange = Range("A1:A10")'Vorherige bedingte Formate löschenMyRange.FormatConditions.Delete'Fehlerregel hinzufügenMyRange.FormatConditions.Add Typ:=xlExpression, Formula1:="=IsError(A1)=true"'Innenfarbe auf Rot setzenMyRange.FormatConditions(1).Interior.Color = RGB(255, 0, 0)End Sub |
Bedingte Formatierung für Datumsangaben in der Vergangenheit
Möglicherweise haben Sie Daten importiert, bei denen Sie Daten hervorheben möchten, die in der Vergangenheit liegen. Ein Beispiel dafür könnte ein Debitorenbericht sein, in dem Sie möchten, dass alte Rechnungsdaten, die älter als 30 Tage sind, hervorstechen.
Dieser Code verwendet den Regeltyp von xlExpression und eine Excel-Funktion, um die Datumsangaben auszuwerten.
| 1234567891011 | Sub DateInPastConditionalFormattingExample()Dimmen Sie MyRange als Bereich'Bereichsobjekt basierend auf einer Datumsspalte erstellenSet MyRange = Range("A1:A10")'Vorherige bedingte Formate löschenMyRange.FormatConditions.Delete'Fehlerregel für Daten in der Vergangenheit hinzufügenMyRange.FormatConditions.Add Typ:=xlExpression, Formula1:="=Now()-A1 > 30"'Innenfarbe auf Rot setzenMyRange.FormatConditions(1).Interior.Color = RGB(255, 0, 0)End Sub |
Dieser Code verwendet einen Datumsbereich im Bereich A1:A10 und setzt die Zellenfarbe für jedes Datum, das mehr als 30 Tage in der Vergangenheit liegt, auf Rot.
In der Formel, die in der Bedingung verwendet wird, gibt Now() das aktuelle Datum und die aktuelle Uhrzeit an. Dadurch wird jedes Mal neu berechnet, wenn das Arbeitsblatt neu berechnet wird, sodass sich die Formatierung von einem Tag zum anderen ändert.
Verwenden von Datenbalken in der bedingten Formatierung von VBA
Sie können VBA verwenden, um einem Zahlenbereich Datenbalken hinzuzufügen. Diese sind fast wie Mini-Charts und geben einen sofortigen Überblick darüber, wie groß die Zahlen im Verhältnis zueinander sind. Durch das Akzeptieren von Standardwerten für die Datenbalken ist der Code sehr einfach zu schreiben.
| 123456 | Sub DataBarFormattingExample()Dimmen Sie MyRange als BereichSet MyRange = Range("A1:A10")MyRange.FormatConditions.DeleteMyRange.FormatConditions.AddDatabarEnd Sub |
Auf dem Arbeitsblatt sehen Ihre Daten so aus:
Verwenden von Symbolen in der bedingten Formatierung von VBA
Sie können die bedingte Formatierung verwenden, um Symbole neben Ihren Zahlen in einem Arbeitsblatt einzufügen. Die Symbole können Pfeile oder Kreise oder verschiedene andere Formen sein. In diesem Beispiel fügt der Code den Zahlen basierend auf ihren Prozentwerten Pfeilsymbole hinzu:
| 12345678910111213141516171819202122232425 | Unter IconSetsExample()Dimmen Sie MyRange als Bereich'Bereichsobjekt erstellenSet MyRange = Range("A1:A10")'Vorherige bedingte Formate löschenMyRange.FormatConditions.Delete'Symbolsatz zum FormatConditions-Objekt hinzufügenMyRange.FormatConditions.AddIconSetCondition'Setzen Sie das Symbol auf Pfeile - Bedingung 1Mit MyRange.FormatConditions(1).IconSet = ActiveWorkbook.IconSets(xl3Arrows)Ende mit'Setzen Sie die Symbolkriterien für den erforderlichen Prozentwert - Bedingung 2Mit MyRange.FormatConditions(1).IconCriteria(2).Typ = xlConditionValuePercent.Wert = 33.Operator = xlGreaterEqualEnde mit'Setzen Sie die Symbolkriterien für den erforderlichen Prozentwert - Bedingung 3Mit MyRange.FormatConditions(1).IconCriteria(3).Typ = xlConditionValuePercent.Wert = 67.Operator = xlGreaterEqualEnde mitEnd Sub |
Auf diese Weise wird sofort angezeigt, ob eine Zahl hoch oder niedrig ist. Nachdem Sie diesen Code ausgeführt haben, sieht Ihr Arbeitsblatt wie folgt aus:
Verwenden der bedingten Formatierung zum Hervorheben der Top Five
Sie können VBA-Code verwenden, um die obersten 5 Zahlen innerhalb eines Datenbereichs hervorzuheben. Sie verwenden einen Parameter namens „AddTop10“, können jedoch die Rangnummer innerhalb des Codes auf 5 einstellen. Ein Benutzer möchte möglicherweise die höchsten Zahlen in einem Bereich sehen, ohne die Daten zuerst sortieren zu müssen.
| 1234567891011121314151617181920212223 | Sub Top5Beispiel()Dimmen Sie MyRange als Bereich'Bereichsobjekt erstellenSet MyRange = Range("A1:A10")'Vorherige bedingte Formate löschenMyRange.FormatConditions.Delete'Top10-Bedingung hinzufügenMyRange.FormatConditions.AddTop10Mit MyRange.FormatConditions(1)'Parameter von oben nach unten setzen.TopBottom = xlTop10Top"Nur die Top 5 festlegen".Rang = 5Ende mitMit MyRange.FormatConditions(1).Font'Schriftfarbe einstellen.Farbe = -16383844Ende mitMit MyRange.FormatConditions(1).Interior'Legen Sie die Hintergrundfarbe der Zelle fest.Farbe = 13551615Ende mitEnd Sub |
Die Daten auf Ihrem Arbeitsblatt würden nach dem Ausführen des Codes so aussehen:
Beachten Sie, dass der Wert 145 zweimal angezeigt wird, sodass sechs Zellen hervorgehoben werden.
Bedeutung der Parameter StopIfTrue und SetFirstPriority
StopIfTrue ist von Bedeutung, wenn für einen Zellbereich mehrere Regeln zur bedingten Formatierung gelten. Eine einzelne Zelle innerhalb des Bereichs kann die erste Regel erfüllen, aber sie kann auch nachfolgende Regeln erfüllen. Als Entwickler möchten Sie vielleicht, dass die Formatierung nur für die erste Regel angezeigt wird, auf die es kommt. Andere Regelkriterien können sich überschneiden und unbeabsichtigte Änderungen vornehmen, wenn sie in der Regelliste fortgesetzt werden dürfen.
Der Standardwert für diesen Parameter ist True, aber Sie können ihn ändern, wenn alle anderen Regeln für diese Zelle berücksichtigt werden sollen:
| 1 | MyRange. FormatConditions(1).StopIfTrue = False |
Der Parameter SetFirstPriority bestimmt, ob diese Bedingungsregel zuerst ausgewertet wird, wenn mehrere Regeln für diese Zelle vorhanden sind.
| 1 | MyRange. FormatConditions(1).SetFirstPriority |
Dadurch wird die Position dieser Regel an Position 1 innerhalb der Sammlung von Formatbedingungen verschoben, und alle anderen Regeln werden mit geänderten Indexnummern nach unten verschoben. Seien Sie vorsichtig, wenn Sie mithilfe der Indexnummern Änderungen an Regeln im Code vornehmen. Sie müssen sicherstellen, dass Sie die richtige Regel ändern oder löschen.
Sie können die Priorität einer Regel ändern:
| 1 | MyRange. Formatbedingungen(1).Priorität=3 |
Dadurch werden die relativen Positionen aller anderen Regeln in der Liste der bedingten Formate geändert.
Verwenden der bedingten Formatierung mit Verweis auf andere Zellwerte
Dies ist eine Sache, die die bedingte Formatierung von Excel nicht kann. Sie können jedoch Ihren eigenen VBA-Code erstellen, um dies zu tun.
Angenommen, Sie haben eine Datenspalte und in der Zelle neben jeder Zahl befindet sich Text, der angibt, welche Formatierung für jede Zahl erfolgen soll.
Der folgende Code führt Ihre Zahlenliste durch, sucht in der angrenzenden Zelle nach Formatierungstext und formatiert dann die Zahl nach Bedarf:
| 123456789101112131415161718192021 | Sub ReferToAnotherCellForConditionalFormatting()'Variablen erstellen, um die Anzahl der Zeilen für die Tabellendaten aufzunehmenDim RRow As Long, N As Long'Erfassen Sie die Anzahl der Zeilen innerhalb des tabellarischen DatenbereichsRRow = ActiveSheet.UsedRange.Rows.Count'Alle Zeilen im tabellarischen Datenbereich durchlaufenFür N = 1 bis RRow'Verwenden Sie eine Select Case-Anweisung, um die Formatierung basierend auf Spalte 2 auszuwertenWählen Sie Case ActiveSheet.Cells(N, 2).Value'Verwandeln Sie die Innenfarbe in BlauKoffer "Blau"ActiveSheet.Cells(N, 1).Interior.Color = vbBlue'Verwandeln Sie die Innenfarbe in RotGehäuse "Rot"ActiveSheet.Cells(N, 1).Interior.Color = vbRed'Verwandeln Sie die Innenfarbe in GrünKoffer "Grün"ActiveSheet.Cells(N, 1).Interior.Color = vbGreenAuswahl beendenNächste NEnd Sub |
Nachdem dieser Code ausgeführt wurde, sieht Ihr Arbeitsblatt nun so aus:
Die Zellen, auf die für die Formatierung verwiesen wird, können sich irgendwo auf dem Arbeitsblatt oder sogar auf einem anderen Arbeitsblatt innerhalb der Arbeitsmappe befinden. Sie können jede beliebige Textform verwenden, um eine Bedingung für die Formatierung zu machen, und Sie sind nur durch Ihre Vorstellungskraft in der Verwendung dieses Codes eingeschränkt.
Operatoren, die in Anweisungen zur bedingten Formatierung verwendet werden können
Wie Sie in den vorherigen Beispielen gesehen haben, werden Operatoren verwendet, um zu bestimmen, wie die Bedingungswerte ausgewertet werden, z. xlZwischen.
Es gibt eine Reihe dieser Operatoren, die verwendet werden können, je nachdem, wie Sie Ihre Regelkriterien angeben möchten.
| Name | Wert | Beschreibung |
| xlBetween | 1 | Zwischen. Kann nur verwendet werden, wenn zwei Formeln angegeben werden. |
| xlGleich | 3 | Gleich. |
| xlGreater | 5 | Größer als. |
| xlGreaterEqual | 7 | Größer als oder gleich wie. |
| xlWeniger | 6 | Weniger als. |
| xlWenigerGleich | 8 | Weniger als oder gleich. |
| xlNotBetween | 2 | Nicht zwischen. Kann nur verwendet werden, wenn zwei Formeln angegeben werden. |
| xlNotEqual | 4 | Nicht gleich. |
