Direkt zum Inhalt

Excel: Wenn die Schriftfarbe rot ist, geben Sie einen bestimmten Text zurück oder führen Sie andere Operationen aus

Wie können Sie einen bestimmten Text zurückgeben, wenn die Schriftfarbe in einer anderen Zelle rot ist, wie im folgenden Screenshot gezeigt? In diesem Artikel werde ich einige Tricks vorstellen, um einige Operationen basierend auf dem Text in roter Schrift in Excel durchzuführen.


Wenn die Schriftfarbe rot ist, geben Sie einen bestimmten Text in einer anderen Zelle zurück

Um einen bestimmten Text zurückzugeben, wenn die Schriftfarbe in einer anderen Zelle rot ist, gehen Sie bitte wie folgt vor:

1. Drücken Sie Alt + F11 Tasten gleichzeitig zum Öffnen der Microsoft Visual Basic für Applikationen Fenster.

2. Dann klick Insert > Modul, kopieren Sie den folgenden VBA-Code und fügen Sie ihn in das Fenster ein.

VBA-Code: Wenn die Schriftfarbe rot ist, geben Sie einen bestimmten Text zurück

Function FontColorisRed(Rng As Range)
'Updateby ExtendOffice
    Application.Volatile
    If Rng.Font.ColorIndex = 3 Then
    FontColorisRed = "Fail"
    Else
    FontColorisRed = "Pass"
    End If
End Function
Note: Wenn im obigen Code die Schriftfarbe rot ist, geben Sie den Text „Scheitern“, wenn nicht rot, geben Sie den Text zurück „Passieren“. Sie können die beiden Texte nach Bedarf ändern.

3. Schließen Sie dann das Codefenster und geben Sie diese Formel ein: =SchriftfarbeISRot(B2), und ziehen Sie dann den Füllgriff nach unten, um die anderen Ergebnisse zu erhalten, siehe Screenshot:


Wenn die Schriftfarbe rot ist, markieren Sie die Zelle

Wenn Sie die Zellen basierend auf der roten Schrift hervorheben möchten, gehen Sie bitte wie folgt vor:

1. Drücken Sie Alt + F11 Tasten gleichzeitig zum Öffnen der Microsoft Visual Basic für Applikationen Fenster.

2. Dann klick Insert > Modul, kopieren Sie den folgenden VBA-Code und fügen Sie ihn in das Fenster ein.

VBA-Code: Wenn die Schriftfarbe rot ist, markieren Sie die Zelle

Function HighlightRedFont(pRg As Range) As Boolean
'Updateby ExtendOffice
Dim xRg As Range
Dim xBol As Boolean
xBol = False
    For Each xRg In pRg
        If xRg.Font.Color = vbRed Then
            xBol = True
        End If
    Next
  HighlightRedFont = xBol
End Function

3. Schließen Sie dann das Codefenster und klicken Sie auf klicken Home > Bedingte Formatierung > Neue Regel, siehe Screenshot:

4. In der herausgesprungen Neue Formatierungsregel Führen Sie im Dialogfeld die folgenden Vorgänge aus:

  • Klicken Sie auf Kostenlos erhalten und dann auf Installieren. Verwenden Sie eine Formel, um zu bestimmen, welche Zellen formatiert werden sollen der Wählen Sie einen Regeltyp Listenfeld;
  • Geben Sie diese Formel ein =Highlightredfont(B2) in die Formatieren Sie Werte, bei denen diese Formel wahr ist Textfeld;
  • Dann klick Format .

5. In dem Format Cells Dialogfeld unter Füllen Wählen Sie auf der Registerkarte eine Farbe aus, mit der Sie die Zelle hervorheben möchten, siehe Screenshot:

6. Und dann klicken OK > OK um die Dialogfelder zu schließen. Und jetzt werden die Zellen mit roter Schrift sofort hervorgehoben, siehe Screenshot:


Wenn die Schriftfarbe rot ist, ändern Sie die Schriftfarbe

Manchmal möchten Sie vielleicht die rote Schrift in eine andere Schriftfarbe ändern, hier werde ich über zwei Methoden sprechen, um dies zu erreichen.

 Wenn die Schriftfarbe rot ist, ändern Sie die Schriftfarbe mit der Funktion Suchen und Ersetzen

Um die rote Schriftfarbe in eine andere zu ändern, kann Ihnen die Funktion „Suchen und Ersetzen“ in Excel einen Gefallen tun. Führen Sie dazu bitte die folgenden Schritte aus:

1. Wählen Sie den Datenbereich aus, dessen Schriftfarbe Sie ändern möchten, und drücken Sie dann Strg + H Schlüssel zum Öffnen der Suchen und Ersetzen Dialogbox. Klicken Sie im geöffneten Dialog auf Optionen>> Schaltfläche, siehe Screenshot:

2. Führen Sie im erweiterten Dialogfeld die folgenden Vorgänge aus:

  • Lassen Sie die Finden Sie, was und Ersetzen durch Kästen leer;
  • Auf der rechten Seite des Finden Sie, was Feld auswählen Format > Wählen Sie Format aus Zelle, und klicken Sie auf eine Zelle mit roter Schrift;
  • Dann auf der rechten Seite des Ersetzen durch Feld auswählen Format > Format auf dem Sprung Format ersetzen Dialog.

3. In dem Format ersetzen Dialog unter Schriftart Wählen Sie auf der Registerkarte eine Farbe aus, die Sie ändern möchten Farbe Dropdown-Liste, siehe Screenshots:

4. Dann klick OK schließen Format ersetzen Dialog, und klicken Sie jetzt Alle ersetzen Knopf im Suchen und Ersetzen Dialogfeld werden alle Zellen mit roter Schrift durch die von Ihnen angegebene Schriftfarbe ersetzt, siehe Screenshot:

Note: Wenn Sie das Format aus einer vorhandenen Zelle auswählen, werden alle Formate der Zellen übernommen. In diesem Fall wird beim Durchführen des Ersetzens die Zelle nicht ersetzt, wenn ein Format nicht genau übereinstimmt.

 Wenn die Schriftfarbe rot ist, ändern Sie die Schriftfarbe mit einer nützlichen Funktion

Wenn Sie Kutools for ExcelMit seinen Wählen Sie Zellen mit Format Funktion können Sie die Zellen mit roter Schrift auswählen und dann die Schriftfarbe so schnell wie möglich an Ihre Bedürfnisse anpassen.

Nach der Installation Kutools for ExcelBitte machen Sie Folgendes:

1. Wählen Sie den Datenbereich aus, den Sie verwenden möchten, und klicken Sie dann auf Kutoolen > Auswählen > Wählen Sie Zellen mit Format, siehe Screenshot:

2. In dem Wählen Sie Zellen mit Format Dialogfeld, klicken Sie auf Wählen Sie Format aus Zelle Taste. Wählen Sie dann eine Zelle mit roter Schrift aus, alle Attribute dieser Zelle werden im darunter liegenden Listenfeld angezeigt. Wenn Sie alle Zellen mit genau derselben Formatierung der Basiszelle auswählen möchten, aktivieren Sie bitte alle Attributoptionen; Wenn Sie nur die Zellen mit nur roter Schrift auswählen möchten, deaktivieren Sie alle anderen Attribute außer der Schriftfarbe Kontrollkästchen. Siehe Screenshot:

3. Dann klick OK und klicken Sie im folgenden Eingabeaufforderungsfeld auf Ja, siehe Screenshot:

4. Alle Zellen mit roter Schrift werden auf einmal ausgewählt, und Sie können dann eine Schriftfarbe angeben, um die rote Schrift nach Bedarf zu ändern. Siehe Screenshot:


  • Super Formelriegel (leicht mehrere Textzeilen und Formeln bearbeiten); Layout lesen (leichtes Lesen und Bearbeiten einer großen Anzahl von Zellen); In gefilterten Bereich einfügen...
  • Zellen / Zeilen / Spalten zusammenführen und Speichern von Daten; Inhalt geteilter Zellen; Kombinieren Sie doppelte Zeilen und Summe / Durchschnitt... doppelte Zellen verhindern; Bereiche vergleichen...
  • Wählen Sie Duplizieren oder Eindeutig Reihen; Wählen Sie Leere Zeilen (alle Zellen sind leer); Super Find und Fuzzy Find in vielen Arbeitsmappen; Zufällige Auswahl ...
  • Exakte Kopie Mehrere Zellen ohne Änderung der Formelreferenz; Referenzen automatisch erstellen zu mehreren Blättern; Aufzählungszeichen einfügen, Kontrollkästchen und mehr ...
  • Lieblingsformeln und schnell einfügen, Bereiche, Diagramme und Bilder; Zellen verschlüsseln mit Passwort; Mailingliste erstellen und E-Mails senden ...
  • Text extrahieren, Text hinzufügen, Nach Position entfernen, Leerzeichen entfernen;; Paging-Zwischensummen erstellen und drucken; Inhalt und Kommentare zwischen Zellen konvertieren...
  • Superfilter (Speichern und Anwenden von Filterschemata auf andere Blätter); Erweiterte Sortierung nach Monat / Woche / Tag, Häufigkeit und mehr; Spezialfilter fett, kursiv ...
  • Kombinieren Sie Arbeitsmappen und Arbeitsblätter;; Tabellen basierend auf Schlüsselspalten zusammenführen; Daten in mehrere Blätter aufteilen; Batch-Konvertierung von xls, xlsx und PDF...
  • Pivot-Tabellengruppierung nach Wochennummer, Wochentag und mehr ... Entsperrte, gesperrte Zellen anzeigen durch verschiedene Farben; Markieren Sie Zellen mit Formel / Name...
kte tab 201905
  • Aktivieren Sie das Bearbeiten und Lesen von Registerkarten in Word, Excel und PowerPoint, Publisher, Access, Visio und Project.
  • Öffnen und erstellen Sie mehrere Dokumente in neuen Registerkarten desselben Fensters und nicht in neuen Fenstern.
  • Steigert Ihre Produktivität um 50 % und reduziert jeden Tag Hunderte von Mausklicks für Sie!
officetab unten
Comments (0)
No ratings yet. Be the first to rate!
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations