Wie kann man alle spezifischen Wörter in einem Zellbereich fett formatieren?

In Excel kann uns die Funktion „Suchen und Ersetzen“ dabei helfen, beliebigen spezifischen Text zu finden und die gesamten Zellen fett oder mit einer anderen Formatierung zu versehen. Aber haben Sie jemals versucht, nur den spezifischen Text innerhalb der Zellen – nicht die gesamte Zelle – fett zu formatieren, wie im folgenden Screenshot gezeigt?

Alle spezifischen Wörter in einem Zellbereich mit VBA-Code fett formatieren

Alle spezifischen Wörter in einem Zellbereich mit VBA-Code fett formatieren

Der folgende VBA-Code kann Ihnen helfen, nur den spezifischen Text innerhalb des Zelleninhalts fett zu formatieren. Bitte gehen Sie wie folgt vor:

1. Halten Sie die Tasten ALT + F11 gedrückt, um das Fenster Microsoft Visual Basic for Applications zu öffnen.

2. Klicken Sie auf Einfügen > Modul und fügen Sie den folgenden Code in das Modulfenster ein.

VBA-Code: Spezifischen Text in einem Zellbereich fett formatieren

Sub FindAndBold()
'Updateby Extendoffice 20160711
    Dim xFind As String
    Dim xCell As Range
    Dim xTxtRg As Range
    Dim xCount As Long
    Dim xLen As Integer
    Dim xStart As Integer
    Dim xRg As Range
    Dim xTxt As String
    On Error Resume Next
    If ActiveWindow.RangeSelection.Count > 1 Then
      xTxt = ActiveWindow.RangeSelection.AddressLocal
    Else
      xTxt = ActiveSheet.UsedRange.AddressLocal
    End If
    Set xRg = Application.InputBox("Please select data range:", "Kutools for Excel", xTxt, , , , , 8)
    If xRg Is Nothing Then Exit Sub
    On Error Resume Next
    Set xTxtRg = Application.Intersect(xRg.SpecialCells(xlCellTypeConstants, xlTextValues), xRg)
    If xTxtRg Is Nothing Then
        MsgBox "There are no cells with text"
        Exit Sub
    End If
    xFind = Trim(Application.InputBox("What do you want to BOLD?", "Kutools for Excel", , , , , , 2))
    If xFind = "" Then
        MsgBox "No text was listed", vbInformation, "Kutools for Excel"
        Exit Sub
    End If
    xLen = Len(xFind)
    For Each xCell In xTxtRg
        xStart = InStr(xCell.Value, xFind)
        Do While xStart > 0
            xCell.Characters(xStart, xLen).Font.Bold = True
            xCount = xCount + 1
            xStart = InStr(xStart + xLen, xCell.Value, xFind)
        Loop
    Next
    If xCount > 0 Then
        MsgBox "number of " & CStr(xCount) & " text be bolded!", vbInformation, "Kutools for Excel"
    Else
        MsgBox "Not find the specific text!", vbInformation, "Kutools for Excel"
    End If
End Sub

3. Drücken Sie dann die F5-Taste, um diesen Code auszuführen. Ein Dialogfeld erscheint, das Sie auffordert, den Datenbereich auszuwählen, den Sie fett formatieren möchten. Siehe Screenshot:

4. Klicken Sie anschließend auf OK. Ein weiteres Feld wird angezeigt, das Sie auffordert, den spezifischen Text einzugeben, den Sie nur in den Zellen fett formatieren möchten. Siehe Screenshot:

5. Nachdem Sie den Text eingegeben haben, klicken Sie bitte auf die Schaltfläche OK, und der gesamte von Ihnen angegebene Text wurde im ausgewählten Bereich fett formatiert. Siehe Screenshot: