Note: The other languages of the website are Google-translated. Back to English

Wie extrahiere ich Text basierend auf der Schriftfarbe aus einer Zelle in Excel?

Wenn Sie eine Datenliste mit rotem Text in jeder Zelle in Excel haben, wie im folgenden Screenshot gezeigt, und wissen Sie, wie Sie nur den roten Text extrahieren können? Jetzt werde ich einen schnellen Weg vorstellen, um das Rätsel zu lösen, das Text basierend auf der Schriftfarbe aus einer Zelle in Excel extrahiert.

doc-extract-text-color-1

Extrahieren Sie Text basierend auf der Schriftfarbe aus jeder Zelle

Registerkarte "Office" Aktivieren Sie das Bearbeiten und Durchsuchen von Registerkarten in Office und vereinfachen Sie Ihre Arbeit erheblich ...
Kutools for Excel löst die meisten Ihrer Probleme und erhöht Ihre Produktivität um 80%
  • Alles wiederverwenden: Fügen Sie Ihren Favoriten die am häufigsten verwendeten oder komplexesten Formeln, Diagramme und alles andere hinzu und verwenden Sie sie in Zukunft schnell wieder.
  • Mehr als 20 Textfunktionen: Nummer aus Textzeichenfolge extrahieren; Teile von Texten extrahieren oder entfernen; Zahlen und Währungen in englische Wörter umwandeln.
  • Tools zusammenführen: Mehrere Arbeitsmappen und Blätter in einem; Zusammenführen mehrerer Zellen / Zeilen / Spalten ohne Datenverlust; Doppelte Zeilen und Summe zusammenführen.
  • Werkzeuge teilen: Aufteilen von Daten in mehrere Blätter basierend auf dem Wert; Eine Arbeitsmappe für mehrere Excel-, PDF- oder CSV-Dateien; Eine Spalte zu mehreren Spalten.
  • Einfügen überspringen Versteckte / gefilterte Zeilen; Zählen und summieren nach Hintergrundfarbe;; Senden Sie personalisierte E-Mails in großen Mengen an mehrere Empfänger.
  • Superfilter: Erstellen Sie erweiterte Filterschemata und wenden Sie sie auf alle Blätter an. Sortieren nach Woche, Tag, Häufigkeit und mehr; Filter durch Fettdruck, Formeln, Kommentar ...
  • Mehr als 300 leistungsstarke Funktionen; Funktioniert mit Office 2007-2021 und 365; Unterstützt alle Sprachen; Einfache Bereitstellung in Ihrem Unternehmen oder Ihrer Organisation.

Pfeil blau rechte Blase Extrahieren Sie Text basierend auf der Schriftfarbe aus jeder Zelle

In Excel können Sie die definierte Funktion nur verwenden, um den Text basierend auf der Schriftfarbe zu extrahieren.

1. Drücken Sie Alt + F11 Tasten zusammen, um das Fenster Microsoft Visual Basic für Applikationen zu öffnen.

2 Klicken Insert > Modul und kopieren Sie den folgenden VBA-Code in das ausgeblendete Fenster.

VBA: Extrahieren Sie Text basierend auf der Schriftfarbe

Function GetColorText(pRange As Range) As String
'UpdatebyExtendoffice20220621
Dim xOut As String
Dim xValue As String
Dim i As Long
Dim TextColor
TextColor = RGB(255, 0, 0) 'colorindex RGB
xValue = pRange.Text
For i = 1 To VBA.Len(xValue)
  If pRange.Characters(i, 1).Font.Color = TextColor Then
  xOut = xOut & VBA.Mid(xValue, i, 1)
  End If
Next
GetColorText = xOut
End Function

3. Speichern und schließen Sie dann den Dialog und wählen Sie eine leere Zelle neben der Datenliste aus. Geben Sie diese Formel ein = GetColorText (A1) (A1 gibt die Zelle an, aus der Sie Text extrahieren möchten), drücken Sie Weiter Drücken Sie die Taste, um den gewünschten Text zu erhalten, und ziehen Sie dann den Handle zum automatischen Ausfüllen, um die Formel in den gewünschten Bereich zu füllen.

Jetzt können Sie sehen, dass der gesamte rote Text extrahiert wird.

doc-extract-text-color-2

Tipp: Im obigen VBA-Code können Sie die Farbe rgb in diesem Skript TextColor = RGB (255, 0, 0) in andere ändern, um Ihre Anforderungen zu erfüllen.


Relative Artikel:


Die besten Tools für die Office-Produktivität

Kutools for Excel löst die meisten Ihrer Probleme und erhöht Ihre Produktivität um 80%

  • Wiederverwendung: Schnell einfügen komplexe Formeln, Diagramme und alles, was du vorher benutzt hast; Zellen verschlüsseln mit Passwort; Mailingliste erstellen und E-Mails senden ...
  • 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 ohne Daten zu verlieren; Inhalt geteilter Zellen; Kombinieren Sie doppelte Zeilen / Spalten... 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 ...
  • 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...
  • Mehr als 300 leistungsstarke Funktionen. Unterstützt Office / Excel 2007-2021 und 365. Unterstützt alle Sprachen. Einfache Bereitstellung in Ihrem Unternehmen oder Ihrer Organisation. 30-tägige kostenlose Testversion mit allen Funktionen. 60 Tage Geld-zurück-Garantie.
kte tab 201905

Office Tab Bringt die Oberfläche mit Registerkarten in Office und erleichtert Ihnen die Arbeit erheblich

  • 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
Kommentare (14)
Noch keine Bewertungen. Bewerten Sie als Erster!
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Hallo, als ich versuchte, vbBlue zu verwenden, funktionierte es nicht. Hilfe bitte? Vielen Dank!
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Geben Sie die Schriftfarbe der exakten blauen Farbe.
Weil es viele Arten von blauer Farbe gibt "hellblau, himmelblau, dunkelblau"
VBA-Übereinstimmung nur exakte Farbe.??????
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Der Code funktioniert gut, wenn die roten Zeichenfolgen fortlaufend sind. Falls sie in der Quellzelle getrennt werden, werden sie in der Ausgangszelle miteinander verklebt. Ich meine, es gibt kein Leerzeichen in der Ausgabe, wenn die roten Textzeichenfolgen voneinander entfernt sind. Können Sie hierfür bitte eine Lösung bereitstellen?
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Hey, danke für den Tipp. Funktioniert hervorragend mit Rot und Schwarz.
Was ist, wenn ich "Purple" analysieren möchte? das Ändern von vbPurple funktioniert nicht.
Vielen Dank
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Buonasera, grazie mille un'ottima funzione. Però ho un problema, quando val nel foglio ed inserisco es. = GetColorText (A1) mi restituisce il valore giusto però come riavvio il file mi da errore #VALORE!, se poi click 2 volte sopra mi da il valore corretto e così via. che posso fahrpreis?
Dieser Kommentar wurde vom Moderator auf der Website minimiert
dimenticavo io ho Excel 2010
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Danke, sehr interessanter Code.
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Der Code funktioniert gut, wenn die roten Zeichenfolgen fortlaufend sind. Falls sie in der Quellzelle getrennt werden, werden sie in der Ausgangszelle miteinander verklebt. Ich meine, es gibt kein Leerzeichen in der Ausgabe, wenn die roten Textzeichenfolgen voneinander entfernt sind. Können Sie hierfür bitte eine Lösung bereitstellen?
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Probiere das aus, es sollte funktionieren
Funktion GetColorText(pRange As Range) As String
'Aktualisiert, um mehrere zu erhalten
Dim xOut als Zeichenfolge
Dim xValue als Zeichenfolge
Dim ich als lang
Dim wasRed As Boolean
xValue = pRange.Text

Für i = 1 bis VBA.Len(xValue)

Wenn pRange.Characters(i, 1).Font.Color = vbRed Then
xOut = xOut & VBA.Mid(xWert, i, 1)
wasRed = True
ElseIf wasRed = True Then
wasRed = False
xAus = xAus & ";"
End If

Weiter

GetColorText = xOut
End Function

Dieser Kommentar wurde vom Moderator auf der Website minimiert
Tausend Dank hat super funktioniert. Du bist ein Retter Tim :-) 
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Ich konnte den blauen Text (#1166BB) immer noch nicht extrahieren. Gibt es eine Möglichkeit, Hex: #1166BB zu verwenden, um den benötigten Farbtext zu erhalten?
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Hallo, Robert E Perez, ich habe den VBA-Code aktualisiert, jetzt unterstützt er farbigen Text per RGB-Code. Sie können den Code erneut versuchen.
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Ich habe einen bestimmten Text in einer durch Komma getrennten Zelle und Farbe für jeden Text. Während ich die Delimiter-Funktion verwende, kann ich die Schriftfarbe des Textes nicht beibehalten. Vielen Dank für Ihre Hilfe!
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Hallo, jdhjjd, ich verstehe deine Frage nicht ganz. Möchten Sie den spezifischen Text aus Zellen extrahieren und seine Schriftfarbe beibehalten, wie im folgenden Screenshot gezeigt?
https://www.extendoffice.com/images/stories/comments/sun-comment/split_and_keep_font_color.png
oder Zellen teilen und jede Textschriftfarbe beibehalten?
https://www.extendoffice.com/images/stories/comments/sun-comment/split_and_keep_font_color-2.png
Es sind noch keine Kommentare vorhanden

Folgen Sie uns

Copyright © 2009 - www.extendoffice.com. | Alle Rechte vorbehalten. Unterstützt von ExtendOffice. | Sitemap
Microsoft und das Office-Logo sind Marken oder eingetragene Marken der Microsoft Corporation in den USA und / oder anderen Ländern.
Geschützt durch Sectigo SSL