Thomas hat eine Spalte, die nur Textwerte wie Sätze und Phrasen enthält. Einige Zellen zeigen ihren Text in Rot und der Rest in Schwarz. Er möchte eine Möglichkeit, den Text so zu trennen, dass schwarze Textzellen in der Spalte verbleiben und rote Textzellen in die nächste Spalte verschoben werden.

Es gibt verschiedene Möglichkeiten, wie Sie dieses Problem angehen können. Am einfachsten ist es vielleicht, die Spalte mit den Textwerten einfach zu sortieren oder zu filtern. In Excel können Sie nach Textfarbe filtern und sortieren. Dies bedeutet, dass Sie entweder nur die roten Textzellen sehen oder alle roten Textzellen in einem zusammenhängenden Bereich platzieren können. Dann ist es eine einfache Aufgabe, die roten Textzellen auszuschneiden und in die nächste Spalte einzufügen.

So würden Sie beispielsweise die Sortierung durchführen:

  1. Wählen Sie die Zellen aus, die Ihre Textwerte enthalten.

  2. Zeigen Sie die Registerkarte Daten des Menübands an.

  3. Klicken Sie in der Gruppe Sortieren & Filtern auf das Sortierwerkzeug. Excel zeigt das Dialogfeld Sortieren an.

  4. Wählen Sie in der Dropdown-Liste Sortieren nach die Option Schriftfarbe.

  5. Verwenden Sie die Dropdown-Liste Reihenfolge, um anzugeben, welche Farbe zuerst in der sortierten Liste angezeigt werden soll. (Hier würden Sie Ihre rote Farbe auswählen. Die Dropdown-Liste enthält jede Farbe, die in dem in Schritt 1 ausgewählten Bereich erkannt wurde.)

  6. Klicken Sie auf OK.

Jetzt werden Ihre Zellen nach Farbe mit der in Schritt 5 am Anfang des Zellbereichs angegebenen Farbe sortiert. Sie können es einfach kopieren oder in eine andere Spalte verschieben. Sie können dieselben allgemeinen Schritte ausführen, wenn Sie Ihre Textwerte basierend auf der Schriftfarbe filtern möchten.

Wenn Sie möchten, können Sie auch ein Makro verwenden, um Ihre roten Textzellen zu verschieben.

Hier ist ein Beispiel, das den Zellenwert und die Schriftfarbe eine Zelle nach rechts kopiert.

Sub MoveRedText1()

Dim c As Range

If Selection.Columns.Count > 1 Then Exit Sub

For Each c In Selection         If c.Font.Color = vbRed Then             c.Offset(0, 1) = cell.Value             c.Offset(0, 1).Font.Color = vbRed             c.ClearContents             c.Font.Color = vbBlack         End If     Next c End Sub

Um das Makro zu verwenden, wählen Sie einfach die Zellen aus, die Sie analysieren möchten, und führen Sie das Makro aus. Es werden nicht alle Formatierungen der Zellen kopiert, die verschoben werden. Wenn dies kritisch ist, können Sie tatsächlich ein viel einfacheres Makro verwenden, um das Verschieben durchzuführen.

Sub MoveRedText2()

Dim c As Range

For Each c In Selection         If c.Font.Color = vbRed Then _           c.Cut Destination:=c.Offset(0, 1)

Next c End Sub

Wenn Sie eines dieser Makros verwenden und sich Ihre roten Textzellen nicht bewegen, kann dies daran liegen, dass die Zellen keinen roten Text verwenden. Es gibt viele verschiedene Rottöne, die in Excel angezeigt werden können. Sie müssen daher die Makros anpassen, um sicherzustellen, dass Sie nach der richtigen Schriftfarbe suchen.

_Hinweis: _

Wenn Sie wissen möchten, wie die auf dieser Seite (oder auf einer anderen Seite der ExcelTips-Websites) beschriebenen Makros verwendet werden, habe ich eine spezielle Seite vorbereitet, die hilfreiche Informationen enthält.

Klicken Sie hier, um diese spezielle Seite in einem neuen Browser-Tab zu öffnen.

ExcelTips ist Ihre Quelle für kostengünstige Microsoft Excel-Schulungen.

Dieser Tipp (12604) gilt für Microsoft Excel 2007, 2010, 2013, 2016, 2019 und Excel in Office 365.