Alle Vorkommen fett machen (Microsoft Excel)
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:
-
Drücken Sie Strg + H, um die Registerkarte Ersetzen des Dialogfelds Suchen und Ersetzen anzuzeigen.
-
Klicken Sie auf die Schaltfläche Optionen, um das Dialogfeld zu erweitern. (Siehe Abbildung 1.)
-
Geben Sie im Feld Suchen nach das Wort ein, das Sie fett formatieren möchten.
-
Geben Sie dasselbe Wort in das Feld Ersetzen durch ein.
-
Klicken Sie auf die Schaltfläche Format rechts neben dem Feld Ersetzen durch. Excel zeigt das Dialogfeld Format ersetzen an.
-
Klicken Sie auf die Registerkarte Schriftart. (Siehe Abbildung 2.)
-
Wählen Sie in der Liste Schriftstil die Option Fett.
-
Klicken Sie auf OK, um das Dialogfeld Schriftart ersetzen zu schließen.
-
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.