Wie markiert man bestimmten Text innerhalb einer Zelle basierend auf einem anderen Text?
In Excel ist es normalerweise einfach, Zellen basierend auf einem bestimmten Text hervorzuheben. Doch was, wenn Sie nur einen bestimmten Text innerhalb einer Zelle – und nicht die gesamte Zelle – hervorheben möchten? Für viele Anwender stellt dies eine Herausforderung dar. In diesem Artikel zeige ich Ihnen einige praktische Tricks, wie Sie diese Aufgabe in Excel meistern.
Markieren Sie einen oder mehrere bestimmte Texte innerhalb mehrerer Zellen mit VBA-Code
Beispielsweise habe ich einen Bereich mit Textzeichenfolgen und möchte nun den spezifischen Text „Sky“ in diesen Zellen hervorheben, um das im folgenden Screenshot gezeigte Ergebnis zu erhalten:
 |  |  |
Mithilfe des folgenden VBA-Codes können Sie gezielt nur einen Teil des Textes innerhalb einer Zelle hervorheben.
1. Wählen Sie die Zellen aus, in denen Sie den bestimmten Text hervorheben möchten, und drücken Sie dann die Tastenkombination ALT + F11, um das Fenster Microsoft Visual Basic für Applikationen zu öffnen.
2. Klicken Sie auf Einfügen > Modul, und fügen Sie den folgenden Code in das Modul-Fenster ein.
VBA-Code: Einen Teil des Textes innerhalb einer Zelle hervorheben:
Sub HighlightStrings()
'Updateby Extendoffice
Application.ScreenUpdating = False
Dim Rng As Range
Dim cFnd As String
Dim xTmp As String
Dim x As Long
Dim m As Long
Dim y As Long
cFnd = InputBox("Enter the text string to highlight")
y = Len(cFnd)
For Each Rng In Selection
With Rng
m = UBound(Split(Rng.Value, cFnd))
If m > 0 Then
xTmp = ""
For x = 0 To m - 1
xTmp = xTmp & Split(Rng.Value, cFnd)(x)
.Characters(Start:=Len(xTmp) + 1, Length:=y).Font.ColorIndex = 3
xTmp = xTmp & cFnd
Next
End If
End With
Next Rng
Application.ScreenUpdating = True
End Sub
3. Drücken Sie anschließend die Taste F5, um diesen Code auszuführen. Es erscheint ein Eingabefeld, in dem Sie aufgefordert werden, den Text einzugeben, den Sie hervorheben möchten. Siehe Screenshot:
4. Klicken Sie dann auf die Schaltfläche OK. Der von Ihnen eingegebene Text wurde innerhalb der Zellen hervorgehoben. Siehe Screenshot:
| | |
VBA-Code: Mehrere Schlüsselwörter aus Textzeichenfolgen hervorheben:
Sub HighlightStrings()
'Updateby Extendoffice
Application.ScreenUpdating = False
Dim Rng As Range
Dim cFnd As String
Dim xTmp As String
Dim x As Long
Dim m As Long
Dim y As Long
Dim xFNum As Integer
Dim xArrFnd As Variant
Dim xStr As String
cFnd = InputBox("Please enter the text, separate them by comma:")
If Len(cFnd) < 1 Then Exit Sub
xArrFnd = Split(cFnd, ",")
For Each Rng In Selection
With Rng
For xFNum = 0 To UBound(xArrFnd)
xStr = xArrFnd(xFNum)
y = Len(xStr)
m = UBound(Split(Rng.Value, xStr))
If m > 0 Then
xTmp = ""
For x = 0 To m - 1
xTmp = xTmp & Split(Rng.Value, xStr)(x)
.Characters(Start:=Len(xTmp) + 1, Length:=y).Font.ColorIndex = 3
xTmp = xTmp & xStr
Next
End If
Next xFNum
End With
Next Rng
Application.ScreenUpdating = True
End Sub
Geben Sie dann im eingeblendeten Fenster die Schlüsselwörter ein, die hervorgehoben werden sollen (trennen Sie die Begriffe durch Kommas). Siehe Screenshot:
Klicken Sie anschließend auf die Schaltfläche OK, um die angegebenen Wörter sofort hervorzuheben. Siehe Screenshots:
| |  |
Hinweis: Die obigen Codes beachten die Groß-/Kleinschreibung.
Markieren Sie einen oder mehrere bestimmte Texte innerhalb mehrerer Zellen mit einer beeindruckenden Funktion
Wenn Sie mit Code in Excel nicht vertraut sind, stelle ich Ihnen hier ein einfaches Tool vor – Kutools für Excel. Mit seiner Funktion Schlüsselwortmarkierung können Sie ein oder mehrere bestimmte Schlüsselwörter gleichzeitig direkt in den Zellen hervorheben.
Nach der Installation von Kutools für Excelführen Sie bitte Folgendes aus:
1. Klicken Sie auf Kutools > Text > Schlüsselwortmarkierung. Siehe Screenshot:
2. Führen Sie im Dialogfeld Schlüsselwortmarkierung die folgenden Schritte aus:
- Wählen Sie den gewünschten Datenbereich aus dem Textfeld Bereich;
- Wählen Sie die Zellen aus, die die Schlüsselwörter enthalten, die Sie hervorheben möchten. Alternativ geben Sie die Schlüsselwörter manuell – durch Kommas getrennt – in das Textfeld Schlüsselwort ein.
- Geben Sie abschließend eine Schriftfarbe zur Hervorhebung der Texte an, indem Sie die Option Schlüsselwort Schriftfarbeaktivieren. (Um alle Zellen einzufärben, die die Schlüsselwörter enthalten, wählen Sie die Option)Zelleninhaltsfarbe.)
3. Klicken Sie dann auf die Schaltfläche OK. Alle angegebenen Texte wurden wie im folgenden Screenshot gezeigt hervorgehoben:
Hinweis: Diese Funktion berücksichtigt keine Groß-/Kleinschreibung. Wenn Sie den Text unter Berücksichtigung der Groß-/Kleinschreibung hervorheben möchten, aktivieren Sie bitte die Option Groß-/Kleinschreibung beachten im Dialogfeld Schlüsselwortmarkierung.
Markieren Sie bestimmten Text innerhalb einer Zelle basierend auf anderem Text mit VBA-Code
Hier liegt eine weitere Situation vor: Sie haben zwei Spalten – die erste enthält Textzeichenfolgen, die zweite jeweils den dazugehörigen spezifischen Text. Nun gilt es, in jeder Zeile den entsprechenden Text in der ersten Spalte basierend auf dem spezifischen Text in der zweiten Spalte hervorzuheben.
1. Halten Sie die Tastenkombination ALT + F11 gedrückt, um das Fenster Microsoft Visual Basic für Applikationen zu öffnen.
2. Klicken Sie auf Einfügen>Modul, und fügen Sie den folgenden Code in das Modul-Fenster ein.
VBA-Code: Einen Teil des Textes innerhalb einer Zelle basierend auf anderem Text hervorheben:
Sub highlight()
'Updateby Extendoffice
Dim xStr As String
Dim xRg As Range
Dim xTxt As String
Dim xCell As Range
Dim xChar As String
Dim I As Long
Dim J As Long
On Error Resume Next
If ActiveWindow.RangeSelection.Count > 1 Then
xTxt = ActiveWindow.RangeSelection.AddressLocal
Else
xTxt = ActiveSheet.UsedRange.AddressLocal
End If
LInput:
Set xRg = Application.InputBox("please select the data range:", "Kutools for Excel", xTxt, , , , , 8)
If xRg Is Nothing Then Exit Sub
If xRg.Areas.Count > 1 Then
MsgBox "not support multiple columns"
GoTo LInput
End If
If xRg.Columns.Count <> 2 Then
MsgBox "the selected range can only contain two columns "
GoTo LInput
End If
For I = 0 To xRg.Rows.Count - 1
xStr = xRg.Range("B1").Offset(I, 0).Value
With xRg.Range("A1").Offset(I, 0)
.Font.ColorIndex = 1
For J = 1 To Len(.Text)
If Mid(.Text, J, Len(xStr)) = xStr Then .Characters(J, Len(xStr)).Font.ColorIndex = 3
Next
End With
Next I
End Sub
3. Drücken Sie nach dem Einfügen des Codes die Taste F5, um ihn auszuführen. Es erscheint ein Eingabefeld, in dem Sie aufgefordert werden, den Datenbereich auszuwählen, der sowohl die Textzeichenfolge als auch den spezifischen Text enthält, den Sie hervorheben und als Grundlage verwenden möchten. Siehe Screenshot:
4. Klicken Sie anschließend auf die Schaltfläche OK. Der entsprechende Text in der ersten Spalte wurde basierend auf dem spezifischen Text in der zweiten Spalte rot hervorgehoben, wie im folgenden Screenshot gezeigt:
Weitere verwandte Artikel:
- Teilweisen Text beim Verketten zweier Spalten in Excel fett darstellen
- In einem Excel-Arbeitsblatt kann es vorkommen, dass sich bei der Verkettung zweier Zellwerte mithilfe von Formeln der kombinierte Text nicht teilweise fett formatieren lässt – was gelegentlich störend sein kann. Wie können Sie beim Zusammenführen zweier Spalten in Excel einen Teil des resultierenden Textes fett darstellen?
- Zellspalten verketten und Textfarbe in Excel beibehalten
- Wie allgemein bekannt ist, geht beim Verketten oder Zusammenführen von Zellspalten in eine einzige Spalte die Zellenformatierung (wie z. B. TextSchriftfarbe, Zahlenformatierung usw.) verloren. In diesem Artikel stelle ich einige Tricks vor, um Zellspalten möglichst einfach in eine Spalte zusammenzuführen und dabei die Textfarbe beizubehalten.
- Bestimmten Text Basierend auf Wert in einer anderen Spalte anzeigen
- Angenommen, Sie haben eine Liste mit Zahlen und möchten in einer anderen Spalte bestimmten Text basierend auf diesen Werten anzeigen: Liegt die Zahl zwischen 1 und 100, soll im benachbarten Feld „Abnahme“ erscheinen; bei Werten zwischen 101 und 200 „Stabil“; und bei Zahlen über 200 „Zunahme“ – wie im folgenden Screenshot dargestellt. Um diese Aufgabe in Excel zu lösen, helfen Ihnen die folgenden Formeln aus diesem Artikel.
- Zellen mit Nach Text und Zahl aufteilen in Excel summieren
- Beispielsweise habe ich eine Liste mit Werten, die sowohl Zahlen als auch Textzeichenfolgen enthalten. Nun möchte ich nur die Zahlen summieren, die denselben Text aufweisen – siehe folgender Screenshot. Normalerweise lassen sich die Werte in einer solchen Liste nicht direkt summieren, sobald Textzeichenfolgen enthalten sind. Daher stelle ich Ihnen hier einige Formeln vor, mit denen Sie diese Aufgabe mühelos bewältigen können.
Beste Office-Produktivitätstools
Verbessern Sie Ihre Excel-Kenntnisse mit Kutools für Excel und erleben Sie Effizienz wie nie zuvor.Kutools für Excel bietet über 300 erweiterte Funktionen zur Steigerung der Produktivität und Zeit sparen.Klicken Sie hier, um die Funktion zu erhalten, die Sie am dringendsten benötigen...
Office Tab bringt eine tabbasierte Oberfläche in Office und macht Ihre Arbeit viel einfacher
- Aktivieren Sie tabbasiertes Bearbeiten und Lesen in Word, Excel, PowerPoint, Publisher, Access, Visio und Project.
- Öffnen und erstellen Sie mehrere Dokumente in neuen Registerkarten desselben Fensters – statt jedes in einem separaten Fenster zu öffnen.
- Steigert Ihre Produktivität um 50 % und erspart Ihnen täglich Hunderte von Mausklicks!
Alle Kutools-Add-Ins – ein Installationsprogramm
Kutools for Office-Paket bündelt Add-Ins für Excel, Word, Outlook und PowerPoint sowie Office Tab Pro – ideal für Teams, die mit mehreren Office-Anwendungen arbeiten.
- Alles-in-einem-Paket— Add-Ins für Excel, Word, Outlook & PowerPoint sowie Office Tab Pro
- Ein Installationsprogramm, eine Lizenz— innerhalb weniger Minuten eingerichtet (MSI-fähig)
- Funktioniert besser zusammen— optimierte Produktivität über alle Office-Anwendungen hinweg
- 30-tägige Vollversion zum Testen— keine Registrierung, keine Kreditkarte erforderlich
- Bestes Preis-Leistungs-Verhältnis— sparen Sie im Vergleich zum Kauf einzelner Add-Ins