Mit Alt+F11 kommst Du in die Entwicklungsumgebung
Dort gehst Du auf Einfügen | Modul
Dann kopierst Du folgenden Text:
Sub Blattnamen()
Worksheets(2).pagesetup.Centerheader = worksheets(1).name
End Sub
Danach gehst Du wieder zu Excel zurück und drückst
Alt+F8
Wähle aus der Liste Blattnamen aus und gehe auf ausführen.
PS: Diese Zeile weisst nur der Kopfzeile des zweiten Blattes in Deiner Mappe (deshalb Worksheets(2) den Namen des ersten Blattes (Worksheets(1) zu.
Diese Zahlen musst Du nach Deinem Bedarf anpassen.
Alternativ kannst Du in der Entwicklungumgebung mit
Strg+G das Direkteingabefenster sichtbar machen.
Dort reicht es als Befehl
Worksheets(2).pagesetup.Centerheader = worksheets(1).name
einzugeben.
Hilfe das hoft Dir,
Alex
Das Archiv des Excel-Forums
