Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Suchen / Ersetzen in Kopfzeilen

Forumthread: Suchen / Ersetzen in Kopfzeilen

Suchen / Ersetzen in Kopfzeilen
03.09.2002 11:25:30
Annja
Hallo,
ich habe eine Excel Datei mit > 20 Tabellenblättern. Ich muß den Inhalt der Kopfzeile von allen Blättern verändern. Über Suchen / Ersetzten klappt das bei mir nicht, die Kopfzeilen werden ausgenommen. Gibt es eine andere Möglichkeit ?

Viele Grüße
Annja

Anzeige

7
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Re: Suchen / Ersetzen in Kopfzeilen
03.09.2002 12:53:06
Udo RiHü
Hallo,
da bleibt die nur VBA.

Sub Kopfzeilen_ersetzen()
Suchtext = InputBox("Suchtext?")
ErsText = InputBox("Ersetzen durch?")
For Each Blatt In ActiveWorkbook.Sheets
With Blatt.PageSetup
If .LeftHeader = Suchtext Then .LeftHeader = ErsText
If .CenterHeader = Suchtext Then .CenterHeader = ErsText
If .RightHeader = Suchtext Then .RightHeader = ErsText
End With
Next Blatt
End Sub

Hiermit werden die Kopfzeilen aller Blätter durchsucht und ersetzt.

Gruss Udo

Anzeige
Re: Suchen / Ersetzen in Kopfzeilen
03.09.2002 15:14:56
Annja
Hallo Udo,
vielen Dank für die Info. Leider habe ich keine Erfahrung mit VBA.
Ich habe die Sub in ein neues Module in meiner Datei eingefügt und über Ausführen (F5) gestartet. Ich bekomme auch die beiden Abfragen auf Suchtext / zu ersetzender Text aber in der Kopfzeile tut sich nichts. Was mache ich noch falsch ?

Gruß,
Annja

Anzeige
Re: Suchen / Ersetzen in Kopfzeilen
03.09.2002 16:14:59
Udo RiHü
Hallo Annja,
Suchtext? ist der zu ersetzende Text, d.h.dein Kopfzeilentext. Das muss genau stimmen.
Ersetzen durch? ist der Text, der statt dessen eingefügt werden soll.
Wenn du nur Teile suchen willst, klappt das so nicht. Dann so:

Gruss Udo

Re: Suchen / Ersetzen in Kopfzeilen
03.09.2002 21:48:12
Annja
Hallo Udo,
klappt leider immer noch nicht. Den Suchtext und den zu ersetzenden Text hatte ich von Anfang an komplett eingegeben. Selbst die Veränderung der Funktion bringt keine Änderung.
Muß ich noch irgend was anders machen außer Ausführen (F5) und eingeben der Texte ?

Gruß,
Annja

Anzeige
Re: Suchen / Ersetzen in Kopfzeilen
04.09.2002 09:40:41
Udo RiHü
Hallo Annja,
das verstehe ich nicht.
Ich schicke dir mal die Datei per eMail. Ich habe da noch ein bischen dran gebastelt. Jetzt werden auch Teilstrings ersetzt. Die Kopfzeile ist auf aleen Blättern "Bericht August 2002". Es hat problemlos geklappt, "August" durch "September" zu ersetzen. Auch "Bericht" lässt sich problemlos durch "Report" erstzen. Groß- und Kleinschreibung muss beachtet werden.

Gruss Udo

Anzeige
Re: Suchen / Ersetzen in Kopfzeilen
04.09.2002 13:53:45
Annja
Hallo Udo,
die Datei per Email habe ich nicht bekommen.
Jetzt klappt es aber. Mir ist aufgefallen warum es nicht ging. Der Text den ich verändern wollte war im rechten Bereich und hier stand in Deinem Code ein "=" statt ein "Like" in dem Programmauszug. Ich habe es geändert und jetzt gehts.

Vielen Dank für die Hilfe.

Gruß,
Annja

Anzeige
Re: Suchen / Ersetzen in Kopfzeilen
04.09.2002 14:01:19
Annja
Hallo Udo,
die Veränderung der Texte ist jetzt okay. Leider wird die Schrifthöhe ebenfalls verändert. Kann man das auch so machen, daß die Schrifthöhe bestehen bleibt ?

Gruß,
Annja

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Infobox / Tutorial

Suchen und Ersetzen in Excel-Kopfzeilen


Schritt-für-Schritt-Anleitung

Um den Inhalt der Kopfzeilen in Excel zu suchen und zu ersetzen, kannst du VBA (Visual Basic for Applications) verwenden. Folge diesen Schritten:

  1. Öffne dein Excel-Dokument.

  2. Drücke ALT + F11, um den VBA-Editor zu öffnen.

  3. Klicke auf Einfügen und wähle Modul.

  4. Füge den folgenden Code in das Modul ein:

    Sub Kopfzeilen_ersetzen()
       Suchtext = InputBox("Suchtext?")
       ErsText = InputBox("Ersetzen durch?")
       For Each Blatt In ActiveWorkbook.Sheets
           With Blatt.PageSetup
               If .LeftHeader = Suchtext Then .LeftHeader = ErsText
               If .CenterHeader = Suchtext Then .CenterHeader = ErsText
               If .RightHeader = Suchtext Then .RightHeader = ErsText
           End With
       Next Blatt
    End Sub
  5. Schließe den VBA-Editor und kehre zu Excel zurück.

  6. Drücke ALT + F8, wähle Kopfzeilen_ersetzen und klicke auf Ausführen.

  7. Gib den Suchtext und den Ersatztext ein.

Jetzt sollten die Kopfzeilen in allen Tabellenblättern aktualisiert werden.


Häufige Fehler und Lösungen

  • Problem: Der Suchtext wird nicht gefunden.

    • Lösung: Stelle sicher, dass der eingegebene Suchtext exakt mit dem Text in der Kopfzeile übereinstimmt. Groß- und Kleinschreibung müssen beachtet werden.
  • Problem: Der Code funktioniert nicht wie erwartet.

    • Lösung: Überprüfe, ob du den Code korrekt eingefügt hast. Achte darauf, dass die Kopfzeilen in den richtigen Bereichen (links, Mitte, rechts) gesetzt sind.
  • Problem: Die Schriftgröße ändert sich nach dem Ersetzen.

    • Lösung: Der VBA-Code ersetzt nur den Text, nicht die Formatierung. Du kannst die Formatierung nach dem Ersetzen manuell anpassen.

Alternative Methoden

Wenn du keine Erfahrung mit VBA hast, kannst du auch manuell jede Kopfzeile auf jedem Blatt ändern. Dies kann jedoch zeitaufwendig sein, insbesondere bei mehreren Tabellenblättern. Eine Alternative ist, den Code von jemandem anpassen zu lassen, der sich mit VBA auskennt.


Praktische Beispiele

Angenommen, du hast in allen Kopfzeilen den Text "Bericht August 2002" und möchtest "August" durch "September" ersetzen:

  1. Starte das Makro Kopfzeilen_ersetzen.
  2. Gib "August" als Suchtext und "September" als Ersetzen durch ein.
  3. Klicke auf OK.

Der Text in den Kopfzeilen aller Blätter wird entsprechend geändert.


Tipps für Profis

  • Verwende Like anstelle von = im Code, wenn du Teilstrings ersetzen möchtest. So wird der Code flexibler.

  • Teste den Code zuerst in einer Kopie deiner Datei, um unerwünschte Änderungen zu vermeiden.

  • Du kannst auch eine Schleife einfügen, um nur bestimmte Blätter zu bearbeiten, falls du nicht alle Blätter ändern möchtest.


FAQ: Häufige Fragen

1. Kann ich die Kopfzeilen auch ohne VBA ändern?
Ja, du kannst die Kopfzeilen manuell ändern, aber das ist zeitaufwendig, besonders bei vielen Blättern.

2. Was mache ich, wenn ich keinen VBA-Zugang habe?
Du kannst versuchen, die Kopfzeilen manuell zu ändern oder jemanden fragen, der sich mit VBA auskennt, um den Code für dich auszuführen.

3. Wie kann ich sicherstellen, dass die Schriftgröße gleich bleibt?
Der VBA-Code ändert nur den Text. Wenn du die Schriftgröße anpassen musst, musst du dies manuell tun, nachdem du den Text ersetzt hast.

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige