Tom merkt zu Recht an, dass Sie in Word Suchen und Ersetzen verwenden können, um alle Vorkommen eines Wortes fett zu machen. (Suchen Sie nach dem Wort und ersetzen Sie es durch dasselbe Wort mit aktivierter Fettformatierung.) Er fragt sich, wie er dasselbe in Excel tun kann.

Das Vornehmen solcher Änderungen in Excel ist eigentlich recht einfach und erfolgt praktisch genauso wie in Word. Befolgen Sie diese Schritte:

  1. Drücken Sie Strg + H, um die Registerkarte Ersetzen des Dialogfelds Suchen und Ersetzen anzuzeigen.

  2. Klicken Sie auf die Schaltfläche Optionen, um das Dialogfeld zu erweitern. (Siehe Abbildung 1.)

  3. Geben Sie im Feld Suchen nach das Wort ein, das Sie fett formatieren möchten.

  4. Geben Sie dasselbe Wort in das Feld Ersetzen durch ein.

  5. Klicken Sie auf die Schaltfläche Format rechts neben dem Feld Ersetzen durch. Excel zeigt das Dialogfeld Format ersetzen an.

  6. Klicken Sie auf die Registerkarte Schriftart. (Siehe Abbildung 2.)

  7. Wählen Sie in der Liste Schriftstil die Option Fett.

  8. Klicken Sie auf OK, um das Dialogfeld Schriftart ersetzen zu schließen.

  9. Klicken Sie auf Alle ersetzen, um die Ersetzungen durchzuführen.

Dies scheint zwar recht einfach zu sein, Sie müssen jedoch berücksichtigen, dass diese Schritte die Formatierung ganzer Zellen ändern, nicht nur von Wörtern innerhalb einer Zelle.

Wenn Sie also das Wort „braun“ suchen und ersetzen, wird jede Zelle, die das Wort „braun“ enthält, fett gedruckt – die gesamte Zelle, nicht nur das Wort.

Wenn Sie nur Wörter in der Zelle beeinflussen möchten, funktionieren diese Schritte nicht. Stattdessen müssen Sie auf ein Makro zurückgreifen, um das Fettdrucken durchzuführen.

Grundsätzlich benötigen Sie ein Makro, das ein Arbeitsblatt durchsucht und festlegt, was geändert werden kann. (Sie können einzelne Wörter oder Ziffern in Formeln oder numerischen Werten nicht fett formatieren. Sie können nur Änderungen an der Formatierung auf Wortebene für Textkonstanten vornehmen.)

Sobald das Makro Zellen gefunden hat, die es verarbeiten kann, muss es die Zellen nach dem gewünschten Wort durchsuchen und diesen Text dann fett formatieren. Das folgende Makro implementiert genau diese Strategie:

Sub FindAndBold()

Dim sFind As String     Dim rCell As Range     Dim rng As Range     Dim lCount As Long     Dim iLen As Integer     Dim iFind As Integer     Dim iStart As Integer

On Error Resume Next     Set rng = ActiveSheet.UsedRange. _       SpecialCells(xlCellTypeConstants, xlTextValues)

On Error GoTo ErrHandler     If rng Is Nothing Then         MsgBox "There are no cells with text"

GoTo ExitHandler     End If

sFind = InputBox( _       Prompt:="What do you want to BOLD?", _       Title:="Text to Bold")

If sFind = "" Then         MsgBox "No text was listed"

GoTo ExitHandler     End If

iLen = Len(sFind)

lCount = 0

For Each rCell In rng         With rCell             iFind = InStr(.Value, sFind)

Do While iFind > 0                 .Characters(iFind, iLen).Font.Bold = True                 lCount = lCount + 1                 iStart = iFind + iLen                 iFind = InStr(iStart, .Value, sFind)

Loop         End With     Next

If lCount = 0 Then         MsgBox "There were no occurrences of" & _           vbCrLf & "' " & sFind & " '" & _           vbCrLf & "to bold."

ElseIf lCount = 1 Then         MsgBox "One occurrence of" & _           vbCrLf & "' " & sFind & " '" & _           vbCrLf & "was made bold."

Else         MsgBox lCount & " occurrences of" & _           vbCrLf & "' " & sFind & " '" & _           vbCrLf & "were made bold."

End If

ExitHandler:

Set rCell = Nothing     Set rng = Nothing     Exit Sub

ErrHandler:

MsgBox Err.Description     Resume ExitHandler End Sub

Das Makro legt zuerst den Suchbereich auf die Zellen fest, die Textkonstanten enthalten. Anschließend wird der Benutzer zur Eingabe eines Wortes aufgefordert, das geändert werden muss.

Nach der Eingabe durchsucht das Makro alle Zellen im Bereich. Jede Zelle wird überprüft, um festzustellen, ob sie das Zielwort enthält. Wenn ja, wird die .Bold-Eigenschaft für diese Zeichen festgelegt und das Makro setzt die Suche fort.

Das Makro verfolgt auch, wie viele Änderungen vorgenommen wurden, und zeigt die gesamten Änderungen am Ende seiner Arbeit an.

_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.

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

Dieser Tipp (12105) gilt für Microsoft Excel 2007, 2010, 2013 und 2016.

Eine Version dieses Tippes für die ältere Menüoberfläche von Excel finden Sie hier: Alle Vorkommen fett machen.