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

Wie kann ich bestimmte Wörter in Zellen in Excel einfärben oder hervorheben?

Wenn eine Zelle mehrere Wörter enthält, wie können Sie ein bestimmtes Wort nur in dieser Zelle hervorheben? Und wie wäre es, dieses bestimmte Wort in mehreren Zellen hervorzuheben? Dieser Artikel bietet eine Methode, um dies zu erreichen.

Färben Sie ein bestimmtes Wort in einer einzelnen Zelle / mehreren Zellen mit VBA-Code


Färben Sie ein bestimmtes Wort in einer einzelnen Zelle / mehreren Zellen mit VBA-Code

Der folgende VBA-Code kann Ihnen dabei helfen, das bestimmte Wort in einer Auswahl hervorzuheben. Bitte gehen Sie wie folgt vor.

1. Wählen Sie den Bereich aus, der die Zellen enthält, in denen Sie ein bestimmtes Wort hervorheben möchten. Drücken Sie dann die Andere + F11 Tasten gleichzeitig zum Öffnen der Microsoft Visual Basic für Applikationen Fenster.

2. In der Öffnung Microsoft Visual Basic für Applikationen Klicken Sie im Fenster Insert > Modul. Kopieren Sie dann den VBA-Code und fügen Sie ihn in das Codefenster ein.

VBA-Code: Färben Sie bestimmte Wörter in Zellen in Excel

Sub HighlightStrings()
    Dim xHStr As String, xStrTmp As String
    Dim xHStrLen As Long, xCount As Long, I As Long
    Dim xCell As Range
    Dim xArr
    On Error Resume Next
    xHStr = Application.InputBox("What is the string to highlight:", "KuTools For Excel", , , , , , 2)
    If TypeName(xHStr) <> "String" Then Exit Sub
    Application.ScreenUpdating = False
        xHStrLen = Len(xHStr)
        For Each xCell In Selection
            xArr = Split(xCell.Value, xHStr)
            xCount = UBound(xArr)
            If xCount > 0 Then
                xStrTmp = ""
                For I = 0 To xCount - 1
                    xStrTmp = xStrTmp & xArr(I)
                    xCell.Characters(Len(xStrTmp) + 1, xHStrLen).Font.ColorIndex = 3
                    xStrTmp = xStrTmp & xHStr
                Next
            End If
        Next
    Application.ScreenUpdating = True
End Sub

3. Drücken Sie die Taste F5 Schlüssel zum Ausführen des Codes. Und in der Kutools for Excel Geben Sie im Dialogfeld das bestimmte Wort ein, das Sie in den Zellen markieren möchten, und klicken Sie dann auf OK Taste. Siehe Screenshot:

Dann können Sie sehen, dass alle von Ihnen angegebenen Wörter in ausgewählten Zellen sofort rot gefärbt sind (siehe Abbildung unten).


In Verbindung stehende 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 (21)
Bewertet 5 aus 5 · 1 Bewertungen
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Sie erklären nicht, wie Sie das im letzten Schritt erwähnte Dialogfeld "Kutools for Excel" öffnen.
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Lieber Justin,
Das tut mir leid. Nachdem Sie den VBA-Code in das Codefenster eingefügt haben, drücken Sie bitte die F5-Taste, um den Code auszuführen, und dann wird das Dialogfeld "Kutools for Excel" geöffnet. Danke.
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Gibt es eine Möglichkeit, den Code dazu zu bringen, die Wörter automatisch hervorzuheben, wenn ich die Registerkarten bearbeite?
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Hallo,
Tut mir leid, kann dabei nicht helfen. Vielen Dank für Ihren Kommentar.
Dieser Kommentar wurde vom Moderator auf der Website minimiert
DANKE, DANKE, DANKE
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Quisisera resaltar varias palabras al tiempo, como lo puedo hacer?
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Eso es lo que estoy tratando de hacer tamiben (Das versuche ich auch)
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Falls Sie es vorziehen, dass bei der Suche/Hervorhebung die Groß-/Kleinschreibung nicht beachtet wird, ändern Sie die Zeile 'xArr = Split(xCell.Value, xHStr)' in 'xArr = Split(LCase(xCell.Value), LCase(xHStr))'. Außerdem habe ich festgestellt, dass das Drücken von F5 das Skript nicht ausführt (sondern stattdessen ein anderes modales Fenster anzeigt). Ich habe darauf zugegriffen, indem ich die Registerkarte „Entwickler“ mithilfe der Excel-Optionen (Menüband anpassen) aktiviert und anschließend auf Makros geklickt habe.
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Danke ... das war sehr hilfreich! Gibt es eine Möglichkeit, das Makro so anzupassen, dass es nur ganze Wörter anstelle von Teilwörtern hervorhebt? Zum Beispiel versuche ich, das Wort "Design" hervorzuheben, aber es hebt das "Design" im Wort "designate" hervor. Ich möchte, dass dieses Wort übersprungen wird, wenn es nicht das ganze Wort ist. Vielen Dank!
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Guten Tag,
Est-il possible de supprimer la boite de dialog et de mettre par défaut "apple" comme mot recherché ?
Danke
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Hallo PAU,
Der folgende Code kann Ihnen einen Gefallen tun. Bitte versuchen Sie es.
Sub HighlightStrings()
'Updated by Extendoffice 20220721
    Dim xHStr As String, xStrTmp As String
    Dim xHStrLen As Long, xCount As Long, I As Long
    Dim xCell As Range
    Dim xArr
    On Error Resume Next
    xHStr = "apple"
    If TypeName(xHStr) <> "String" Then Exit Sub
    Application.ScreenUpdating = False
        xHStrLen = Len(xHStr)
        For Each xCell In Selection
            xArr = Split(xCell.Value, xHStr)
            xCount = UBound(xArr)
            If xCount > 0 Then
                xStrTmp = ""
                For I = 0 To xCount - 1
                    xStrTmp = xStrTmp & xArr(I)
                    xCell.Characters(Len(xStrTmp) + 1, xHStrLen).Font.ColorIndex = 3
                    xStrTmp = xStrTmp & xHStr
                Next
            End If
        Next
    Application.ScreenUpdating = True
End Sub
Dieser Kommentar wurde vom Moderator auf der Website minimiert
gut

Coloreaza cuvantul doar daca e la inceput. Daca e la mijloc in aceeasi casuta de excel sau la sfarsit nu-l coloreaza.
Ce anume as putea schimba in cod pentru al colora indiferent unde se afla in casuta excel?

Thanks!
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Hallo Andrea,
Wenn Sie das Wort nur hervorheben möchten, wenn es am Anfang der ausgewählten Zellen steht. Der folgende VBA-Code kann Ihnen einen Gefallen tun. Bitte versuchen Sie es.
Sub HighlightStrings()
'Updated by Extendoffice 20220805
    Dim xHStr As String, xStrTmp As String
    Dim xHStrLen As Long, xCount As Long, I As Long
    Dim xCell As Range
    Dim xArr
    On Error Resume Next
    xHStr = Application.InputBox("What is the string to highlight:", "KuTools For Excel", , , , , , 2)
    If TypeName(xHStr) <> "String" Then Exit Sub
    Application.ScreenUpdating = False
        xHStrLen = Len(xHStr)
        For Each xCell In Selection
            If xHStrLen <= Len(xCell.Value) Then
                If xHStr = Left(xCell.Value, xHStrLen) Then
                    xCell.Characters(1, xHStrLen).Font.ColorIndex = 3
                End If
            End If
        Next
    Application.ScreenUpdating = True
End Sub
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Hallo,
a me servirebbe evidenziare tutti i numeri (comprensivi di due decimali) da -10,00 a 0 in rosso e da 0 a +10,00 in grün. come posso far per non aggiungere singolarmente ogni dato senza aggiungerli tutti manualmente?

Vielen Dank
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Hallo Ciao,
Befinden sich Ihre Zahlen in verschiedenen Zellen eines Bereichs? Wenn dies der Fall ist, können Sie zwei bedingte Formatierungsregeln (zwischen -10 und 0, zwischen 0 und 10) erstellen, um diese Zahlen hervorzuheben. Wenn nicht, können Sie einen Screenshot Ihrer Daten hochladen?
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Das ist sehr schön, thx! Ich frage mich, ob jemand weiß, wie man es auf dem Mac zum Laufen bringt? Danke vielmals
Bewertet 5 aus 5
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Wie könnte das Skript geändert werden, um Folgendes zu tun?

Vergrößern Sie die Schrift um 1 Größe, und
mehrere Wörter mit einer Ausführung des Skripts hervorheben?

Thx!
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Hallo t.taln,

Wenn Sie die Schriftgröße um 1 erhöhen und mehrere Wörter gleichzeitig hervorheben möchten, fügen Sie bitte die folgende Zeile nach der Zeile "xCell.Characters(Len(xStrTmp) + 1, xHStrLen).Font.ColorIndex = 3" im VBA-Code.
Hinweis: Sie müssen vorher die aktuelle Schriftgröße der ausgewählten Zelle kennen und dann eine Zahl eingeben, die um eine Größe größer ist als das ursprüngliche Wort. Die Zahl 12 in der Zeile darunter ist die Schriftgröße, die ich den passenden Wörtern zuweisen werde. Und die ursprüngliche Schriftgröße des Wortes ist 11.
xCell.Characters(Len(xStrTmp) + 1, xHStrLen).Font.Size = 12
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Danke, das ist sehr nützlich. Wie kann ich ein Wort anstelle einer Schriftfarbe hervorheben?

Viele Grüße.
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Danke schön. das war wirklich hilfreich. Kann mir bitte jemand sagen, wie man den Text einfärbt, anstatt ihn hervorzuheben?

Grüße
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Hallo Shaik Faiaz Hamad,

Excel erlaubt es nicht, einen Teil einer Zelle einzufärben. Es tut mir leid, dass ich Ihnen bei diesem Problem nicht helfen kann.
Es sind noch keine Kommentare vorhanden
Hinterlassen Sie Ihre Kommentare
Als Gast posten
×
Bewerte diese Nachricht:
0   Figuren
Vorgeschlagene Standorte

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