Herbers Excel-Forum - das Archiv

Kopfzeile kopieren

Bild

Betrifft: Kopfzeile kopieren
von: Peter1960

Geschrieben am: 29.03.2005 21:35:29
Hallo Excel Forum,
ich versuche gerade bei einer Excel Datei Kopfzeilen aus Tabelle1 in alle folgenden Blätter zu kopieren. Leider komme ich mit meinen Kenntnissen
in VBA nicht weiter.
Aus dem Forum und dem Archiv habe ich mir folgendes zusammen-"gebastelt"
Funktioniert leider nicht?
Sub CopyHeader()
Dim psQuelle As PageSetup, psZiel As PageSetup
Dim wks As Worksheet
Dim wkb As Workbook
Set psQuelle = Worksheets("Tabelle1").PageSetup
Set psZiel = wks.PageSetup
For Each psZiel In ThisWorkbook.Worksheets
With psZiel
.LeftHeader = psQuelle.LeftHeader
.CenterHeader = psQuelle.CenterHeader
.RightHeader = psQuelle.RightHeader
End With
Next psZiel
Application.CutCopyMode = False
End Sub

Könnte mir jemand vielleicht weiter helfen? Wäre echt super!
Gruß Peter
Bild

Betrifft: AW: Kopfzeile kopieren
von: Ralf (Schwabenland)
Geschrieben am: 29.03.2005 22:09:00
Hallo Peter,
eine Möglichkeit:
https://www.herber.de/bbs/user/20351.xls
Hoffe es hilft.
Gruß
Ralf
Bild

Betrifft: AW: Kopfzeile kopieren
von: Peter1960
Geschrieben am: 29.03.2005 22:32:09
Hallo Ralf,
genau das habe ich gesucht, vielen Dank für die schnelle Hilfe.
Gruß
Peter
Bild

Betrifft: Gerne geschehen. O.w.T
von: Ralf (Schwabenland)
Geschrieben am: 29.03.2005 22:33:46
:-)
 Bild
Excel-Beispiele zum Thema "Kopfzeile kopieren"
Grafik in Kopfzeile Kopfzeile der Zelle mit dem höchsten Wert ermitteln.
Kopfzeile in Buchform drucken Randeinstellung der Druck-Kopfzeile
Änderung der Kopfzeile bei Zelleintrag Datei- incl. Pfadname in Kopfzeile
Seitennummer und Seitenanzahl per VBA in Kopfzeile Verweise anhand einer Kopfzeile erkennen
Ermittlung der Kopfzeile nach der Funkion KGRÖSSTE() Kopfzeile nur auf erstem Blatt drucken