Wie kann man Text innerhalb von Kommentaren (Noten) in Excel finden und ersetzen?

Die Funktion „Suchen und Ersetzen“ in Excel ist ein leistungsstarkes Werkzeug, um Inhalte in Zellen schnell zu aktualisieren, aber sie gilt nicht direkt für Noten – den neuen Namen für die traditionellen Kommentare vor Excel 2019. Viele Benutzer fragen sich, ob es möglich ist, die gleiche Funktionalität auf den Text innerhalb der Excel-Noten anzuwenden. Dieser Leitfaden zeigt Ihnen, wie Sie Text in Noten effektiv finden und ersetzen können, um Ihre Fähigkeiten zur Verwaltung und Feinabstimmung aller Aspekte Ihrer Tabellen zu erweitern.

Verwenden von VBA-Code zum Suchen und Ersetzen von Text innerhalb von Kommentaren (Noten)

Ein praktisches Tool zum schnellen und einfachen Suchen und Ersetzen von Text innerhalb von Kommentaren (Noten)

Verwenden von VBA-Code zum Suchen und Ersetzen von Text innerhalb von Kommentaren (Noten)

In Excel können Sie den folgenden VBA-Code verwenden, um Text in allen Noten zu finden und zu ersetzen. Zum Beispiel werde ich den Text "2011" durch den Text "2012" in allen Noten in Excel ersetzen.

1. Klicken Sie auf Entwickler > Visual Basic, und ein neues Microsoft Visual Basic for Applications-Fenster wird angezeigt. Klicken Sie auf Einfügen > Modul und geben Sie dann den folgenden VBA-Code im Modul ein:

VBA-Code: Suchen und Ersetzen von Text in allen Noten in Excel

Sub ReplaceNotes()
'Updated by Extendoffice 2024/07/25   
    Dim cell As Range
    Dim wks As Worksheet
    Dim sFind As String
    Dim sReplace As String
    Dim sNote As String
    ' Define the text to find and replace
    sFind = "2011"
    sReplace = "2012"
    ' Loop through each worksheet in the active workbook
    For Each wks In ActiveWorkbook.Worksheets
        For Each cell In wks.Cells
            If cell.NoteText <> "" Then
                sNote = cell.NoteText
                If InStr(sNote, sFind) > 0 Then
                    sNote = Replace(sNote, sFind, sReplace)
                    cell.NoteText Text:=sNote, Start:=1, Length:=Len(cell.NoteText)
                End If
            End If
        Next cell
    Next wks
End Sub
  

2. Dann klicken Sie auf die Schaltfläche, um den Code auszuführen, und alle "2011" in allen Noten werden durch "2012" im gesamten Arbeitsbuch ersetzt.

Ein praktisches Tool zum schnellen und einfachen Suchen und Ersetzen von Text innerhalb von Kommentaren (Noten)

Wir können mit Kutools für Excel’s Finden/Ersetzen Notentext schnell Text in allen Noten finden und ersetzen.

Wenn Sie Kutools für Excel installiert haben, können Sie ganz einfach Text in allen Noten in Excel finden und ersetzen.

1. Klicken Sie auf Kutools > Mehr > Finden/Ersetzen Notentext.

2. Im Dialogfeld Finden/Ersetzen Notentext:

• (1.) Wählen Sie den Bereich aus, auf den Sie dieses Hilfsprogramm anwenden möchten. Sie können Aktuelles Arbeitsblatt oder Alle Arbeitsblätter auswählen;
• (2.) Geben Sie den Text (2011), den Sie ersetzen möchten, in das Feld Text in Noten finden ein, und geben Sie den spezifischen Text (2012), den Sie verwenden möchten, in das Feld Ersetzen durch ein.

3. Und dann klicken Sie auf die Schaltfläche Ersetzen. Alle 2011 werden durch 2012 innerhalb der Kommentare im aktiven Arbeitsblatt ersetzt. Siehe Screenshots:

Verwandte Artikel:

• Ändern Sie alle Kommentarformate in Zellen
• Ändern Sie den Autorennamen aller Kommentare
• Listen Sie alle Kommentare in einem neuen Arbeitsblatt oder einer neuen Arbeitsmappe auf
• Zeigen oder ausblenden Sie alle Kommentare und Kommentarindikatoren in Excel
• Konvertieren Sie Zelleninhalte in Kommentare in Excel
• Konvertieren Sie Kommentare in Zelleninhalte in Excel