Wie finde und ersetze ich in Excel in Kopf- oder Fußzeilen?
Das Finden eines bestimmten Werts und das anschließende Ersetzen durch einen anderen Wert in Excel ist in unserer täglichen Arbeit üblich. In Excel funktioniert die Funktion Suchen und Ersetzen jedoch gut in Auswahl, Arbeitsblättern und Arbeitsmappen, kann jedoch nicht in Kopf- und Fußzeilen gefunden und ersetzt werden. In diesem Artikel stelle ich einen Makrocode vor, um Werte in Kopf- und Fußzeile zu finden und zu ersetzen.
Suchen und ersetzen Sie in Kopf- oder Fußzeile durch VBA
Suchen und ersetzen Sie in Kopf- oder Fußzeile durch VBA
1. Aktivieren Sie das Blatt, das Sie in Kopf- und Fußzeile suchen und ersetzen möchten, und drücken Sie Alt + F11 Schlüssel zum Öffnen Microsoft Visual Basic für Applikationen Fenster.
2 Klicken Insert > Modulund 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 Wenn Sie die Taste drücken, um den Code auszuführen, wird ein Dialogfeld angezeigt, in dem Sie den gewünschten Text eingeben können. Siehe Screenshot:
4 Klicken OKEin weiteres Dialogfeld wird angezeigt, in dem Sie den Text eingeben können, durch den Sie ersetzen möchten. Siehe Screenshot:
5 Klicken OK. Nun die Werte "KTE" wurden ersetzt mit "Kutools für Excel" in Kopf- und Fußzeile.
Tipp: Wenn Sie für die gesamte Arbeitsmappe arbeiten möchten, können Sie den folgenden Makrocode 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
Beste Office-Produktivitätstools
Verbessern Sie Ihre Excel-Kenntnisse mit Kutools für Excel und erleben Sie Effizienz wie nie zuvor. Kutools für Excel bietet über 300 erweiterte Funktionen, um die Produktivität zu steigern und Zeit zu sparen. Klicken Sie hier, um die Funktion zu erhalten, die Sie am meisten benötigen ...
Office Tab Bringt die Oberfläche mit Registerkarten in Office und erleichtert Ihnen die Arbeit erheblich
- Aktivieren Sie das Bearbeiten und Lesen von Registerkarten in Word, Excel und PowerPoint, Publisher, Access, Visio und Project.
- Öffnen und erstellen Sie mehrere Dokumente in neuen Registerkarten desselben Fensters und nicht in neuen Fenstern.
- Steigert Ihre Produktivität um 50 % und reduziert jeden Tag Hunderte von Mausklicks für Sie!
