Datum

Titel

20.04.2024 00:49:19

Excel Sheet in einen Excel Kalender einfügen

20.04.2024 00:08:11

In Ordner nur das Speichern von Dateien erlauben

19.04.2024 21:26:15

mehrfache Texte finden

19.04.2024 19:41:34

Bei VBA Ausführung Anzeige einfrieren

Du findest keine passende Antwort auf Deine Frage?

Stelle Deine Frage in unserem Live-Forum

Archiv - Navigation

152to156

Aktuelles Verzeichnis

Verzeichnis Index

Übersicht Verzeichnisse

Vorheriger Thread

Rückwärts Blättern

Nächster Thread

Vorwärts blättern

HERBERS

Excel-Forum (Archiv)

20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Rückwärts Blättern

Aktuelles Verzeichnis

Übersicht Verzeichnisse

Vorwärts blättern

Inhaltsverzeichnis

Suchen / Ersetzen in Kopfzeilen

Forumthread: Suchen / Ersetzen in Kopfzeilen
7 Beiträge zu diesem Forumthread
Anzeige
306 Threads zu ähnlichen Themen
Top 100 Forumthreads

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

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Re: Suchen / Ersetzen in Kopfzeilen

03.09.2002 12:53:06

Udo RiHü
Re: Suchen / Ersetzen in Kopfzeilen

03.09.2002 15:14:56

Annja
Re: Suchen / Ersetzen in Kopfzeilen

03.09.2002 16:14:59

Udo RiHü
Re: Suchen / Ersetzen in Kopfzeilen

03.09.2002 21:48:12

Annja
Re: Suchen / Ersetzen in Kopfzeilen

04.09.2002 09:40:41

Udo RiHü
Re: Suchen / Ersetzen in Kopfzeilen

04.09.2002 13:53:45

Annja
Re: Suchen / Ersetzen in Kopfzeilen

04.09.2002 14:01:19

Annja

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

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

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

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

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

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