Tipp: Andere Sprachen sind Google-Übersetzungen. Sie können die English Version dieses Links.
Einloggen
x
or
x
x
Registrieren
x

or

Wie extrahiert man Text anhand der Schriftfarbe aus einer Zelle in Excel?

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

doc-extract-Textfarbe-1

Extrahieren Sie Text anhand der Schriftfarbe aus jeder Zelle


Pfeil blaue rechte Blase Extrahieren Sie Text anhand der Schriftfarbe aus jeder Zelle


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

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

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

VBA: Extrahieren Sie Text basierend auf Schriftfarbe

Function GetColorText(pRange As Range) As String
	'Updateby20141105
	Dim xOut As String
	Dim xValue As String
	Dim i As Long
	xValue = pRange.Text

	For i = 1 To VBA.Len(xValue)

		If pRange.Characters(i, 1).Font.Color = vbRed Then
			xOut = xOut & VBA.Mid(xValue, i, 1)
		End If

	Next

	GetColorText = xOut
End Function

3. Speichern und schließen Sie dann das Dialogfeld, und wählen Sie eine leere Zelle neben der Datenliste aus, und geben Sie diese Formel ein = GetColorText (A1) (A1 gibt die Zelle an, aus der Sie Text extrahieren möchten), drücken Sie Weiter Geben Sie den gewünschten Text ein und ziehen Sie den AutoFill-Handle, um die Formel in den gewünschten Bereich zu bringen.

Jetzt können Sie sehen, dass alle roten Texte extrahiert werden.

doc-extract-Textfarbe-2

SpitzeWenn Sie in dem obigen VBA-Code den schwarzen Text aus Zellen extrahieren müssen, können Sie den Farbnamen ändern Farbe = vbRot zu Farbe = vbBlack.


Relative Artikel:



Empfohlene Produktivitätswerkzeuge

Office Tab

Goldstern1 Bringen Sie praktische Tabs zu Excel und anderer Office-Software, genau wie Chrome, Firefox und den neuen Internet Explorer.

Kutools for Excel

Goldstern1 Tolle! Steigern Sie Ihre Produktivität in 5 Minuten. Brauche keine besonderen Fähigkeiten, spare zwei Stunden pro Tag!

Goldstern1 300 Neue Funktionen für Excel, machen Excel viel einfacher und leistungsfähiger:

  • Zelle / Zeilen / Spalten zusammenführen, ohne Daten zu verlieren.
  • Kombinieren und konsolidieren Sie mehrere Arbeitsblätter und Arbeitsmappen.
  • Bereiche vergleichen, Mehrere Bereiche kopieren, Text in Datum umwandeln, Einheit und Währungsumrechnung.
  • Zählen nach Farben, Paging-Zwischensummen, Erweiterte Sortierung und Super-Filter,
  • Mehr Auswählen / Einfügen / Löschen / Text / Formatieren / Verknüpfen / Kommentieren / Arbeitsmappen / Arbeitsblätter Werkzeuge ...

Screenshot von Kutools für Excel

Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    prudwi · 3 months ago
    The code works well if the red strings are continuous. In case they are separated in the source cell, they are glued to each other in output cell. I mean there is no space in the output if the red text strings are away from each other. Can you please provide a solution for this?
  • To post as a guest, your comment is unpublished.
    Kazam Raza · 3 months ago
    thanks, very interesting code.
  • To post as a guest, your comment is unpublished.
    Roberto · 4 months ago
    dimenticavo io ho Excel 2010
  • To post as a guest, your comment is unpublished.
    Roberto · 4 months ago
    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 clicco 2 volte sopra mi da il valore corretto e così via. che posso fare?
  • To post as a guest, your comment is unpublished.
    JM · 1 years ago
    Hey, Thanks for the Tip. Works great with Red and Black.
    What if I want to parse "Purple"? changing it vbPurple does not work.
    Thanks