Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
588to592
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
588to592
588to592
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Kopfzeile kopieren

Kopfzeile kopieren
29.03.2005 21:35:29
Peter1960
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

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Kopfzeile kopieren
29.03.2005 22:32:09
Peter1960
Hallo Ralf,
genau das habe ich gesucht, vielen Dank für die schnelle Hilfe.
Gruß
Peter
Gerne geschehen. O.w.T
29.03.2005 22:33:46
Ralf
:-)
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige