Wie findet und ersetzt man in Kopf- oder Fußzeile in Excel?

Das Auffinden eines bestimmten Werts und das Ersetzen durch einen anderen ist eine gängige Aufgabe in Excel, aber die Standard-Funktion „Suchen und Ersetzen“ funktioniert nur innerhalb von Bereichen, Arbeitsblättern und Arbeitsmappen, nicht jedoch in Kopf- und Fußzeilen. In diesem Artikel stelle ich einen Makro-Code vor, um Werte in Kopf- und Fußzeilen zu finden und zu ersetzen.

Suchen und Ersetzen in Kopf- oder Fußzeile mit VBA

Suchen und Ersetzen in Kopf- oder Fußzeile mit VBA

1. Aktivieren Sie das Arbeitsblatt, in dem Sie Text in der Kopf- und Fußzeile finden und ersetzen möchten, und drücken Sie die Tasten Alt + F11, um das Fenster Microsoft Visual Basic for Applications zu öffnen.

2. Klicken Sie auf Einfügen > Modul und fügen Sie den folgenden VBA-Code in das Modul ein. Siehe Screenshot:

VBA: Suchen und Ersetzen in Kopf- und Fußzeile

Sub FnR_HF()
'UpdateByExtendoffice20160623
    Dim xStr As String, xRep As String
    'Const csTITLE As String = "Find and Replace"
    On Error Resume Next
    xStr = Application.InputBox("Replace what", "Kutools for Excel", , , , , 2)
    If xStr = "" Then Exit Sub
    xRep = Application.InputBox("With what", , "Kutools for Excel", , , , , 2)
    With ActiveSheet.PageSetup
        ' Substitute Header/Footer values
        .LeftHeader = Application.WorksheetFunction.Substitute(.LeftHeader, xStr, xRep)
        .CenterHeader = Application.WorksheetFunction.Substitute(.CenterHeader, xStr, xRep)
        .RightHeader = Application.WorksheetFunction.Substitute(.RightHeader, xStr, xRep)
        .LeftFooter = Application.WorksheetFunction.Substitute(.LeftFooter, xStr, xRep)
        .CenterFooter = Application.WorksheetFunction.Substitute(.CenterFooter, xStr, xRep)
        .RightFooter = Application.WorksheetFunction.Substitute(.RightFooter, xStr, xRep)
    End With
End Sub

3. Drücken Sie dann F5 , um den Code auszuführen, dann erscheint ein Dialogfenster, in dem Sie den Text eingeben können, den Sie finden möchten. Siehe Screenshot:

4. Klicken Sie auf OK, und ein weiteres Dialogfenster erscheint, in dem Sie den Text eingeben können, durch den Sie ersetzen möchten. Siehe Screenshot:

5. Klicken Sie auf OK. Jetzt wurden die Werte „KTE“ durch „Kutools für Excel“ in Kopf- und Fußzeile ersetzt.

Tipp: Wenn Sie dies auf die gesamte Arbeitsmappe anwenden möchten, können Sie den folgenden Makro-Code verwenden.

Sub FnR_HF()
'UpdateByExtendoffice20171122
    Dim I As Long
    Dim xStr As String, xRep As String
    'Const csTITLE As String = "Find and Replace"
    On Error Resume Next
    xStr = Application.InputBox("Replace what", "Kutools for Excel", , , , , 2)
    If xStr = "" Then Exit Sub
    xRep = Application.InputBox("With what", , "Kutools for Excel", , , , , 2)
    For I = 1 To ActiveWorkbook.Sheets.Count
        With Sheets(I).PageSetup
            ' Substitute Header/Footer values
            .LeftHeader = Application.WorksheetFunction.Substitute(.LeftHeader, xStr, xRep)
            .CenterHeader = Application.WorksheetFunction.Substitute(.CenterHeader, xStr, xRep)
            .RightHeader = Application.WorksheetFunction.Substitute(.RightHeader, xStr, xRep)
            .LeftFooter = Application.WorksheetFunction.Substitute(.LeftFooter, xStr, xRep)
            .CenterFooter = Application.WorksheetFunction.Substitute(.CenterFooter, xStr, xRep)
            .RightFooter = Application.WorksheetFunction.Substitute(.RightFooter, xStr, xRep)
        End With
    Next
End Sub