Kopfzeile kopieren

• Kopfzeile kopieren von Peter1960 vom 29.03.2005 21:35:29
• AW: Kopfzeile kopieren - von Ralf (Schwabenland) am 29.03.2005 22:09:00
  • AW: Kopfzeile kopieren - von Peter1960 am 29.03.2005 22:32:09
    • Gerne geschehen. O.w.T - von Ralf (Schwabenland) am 29.03.2005 22:33:46

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


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




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




Betrifft: Gerne geschehen. O.w.T von: Ralf (Schwabenland)
Geschrieben am: 29.03.2005 22:33:46

:-)

Beiträge aus den Excel-Beispielen zum Thema "Kopfzeile kopieren"