Warum gehen die Kopf- und Fußzeilen einer freigegebenen Datei verloren?

[snb]

Weil True die Default ist für ScaleWithDocHeaderFooter und AlignMarginsHeaderFooter

Code:

Private Sub Workbook_Open()
  With sheets(1).PageSetup
    .CenterHeader = "&Z&""Arial,Fett""&12Schichtplan 615 / 627"
    .CenterFooter = "&Z&""Arial,Fett""&12Hr. Engling Tel.: 155    Hr. Köhler Tel.: 406  Schichtführer Tel.:  483"
    .RightFooter = "&""Arial,Fett""&12&D"
  End With
End Sub

[Tommiks]

Code:

With Workbooks("Abwesenheits- und Schichtplan  2022.xlsb").Worksheets(Tabelle10).PageSetup
        .LeftHeader = ""
        .CenterHeader = "&Z&""Arial,Fett""&12Schichtplan 615 / 627"
        .RightHeader = ""
        .LeftFooter = ""
        .CenterFooter = _
        "&Z&""Arial,Fett""&12Hr. Engling Tel.: 155    Hr. Köhler Tel.: 406  Schichtführer Tel.:  483"
        .RightFooter = "&""Arial,Fett""&12&D"
        .ScaleWithDocHeaderFooter = True
        .AlignMarginsHeaderFooter = True
    End With

Ich habe die Stelle nach Worksheets nicht verstanden. Ich wollte es an dem Arbeitsblatt Tabelle10 (S-KSM) anwenden. Was hätte ich da eintragen müssen?

[snb]

Liest du alle Beiträge ?

[Tommiks]

Ja, mit Sicherheit . Aber alles verstehe ich nicht. Deshalb teste ich . Gerade war ich dabei deine Beiträge noch mal nachvollzuziehen.

---

@snb,

der Code funktioniert, und ist schön kurz. 

Einziges Problem ist, dass der Code in der Fußzeile- und im Kopfzeile den ganzen Pfad des Ordner auch angibt, dann erkennt man den eigentlichen Text nicht mehr...

Das ist der Code :

Code:

Private Sub Workbook_Open()
  With Sheets("S-VPG1+VP").PageSetup
    .CenterHeader = "&Z&""Arial,Fett""&12Schichtplan 615 / 627"
    .CenterFooter = "&Z&""Arial,Fett""&12Hr. Engling Tel.: 155    Hr. Köhler Tel.: 406  Schichtführer Tel.:  483"
    .RightFooter = "&""Arial,Fett""&12&D"
  End With
End Sub

[HKindler]

Hi,

Ich habe die Stelle nach Worksheets nicht verstanden. Ich wollte es an dem Arbeitsblatt Tabelle10 (S-KSM) anwenden. Was hätte ich da eintragen müssen?

Da Tabelle10 (S-KSM) offensichtlich dein Blattname ist, so wie er in Excel unten angezeigt wird, musst du ihn als String angeben: Workbooks("Abwesenheits- und Schichtplan 2022.xlsb").Worksheets("Tabelle10 (S-KSM)")

Da dein Code offensichtlich in der Datei steht, in der er auch angewendet werden soll, kannst du das Workbook weg lassen oder auch durch ThisWorkbook ersetzen.

Wenn der Code tatsächlich in der betreffenden Datei steht, dann bietet es sich an den CodeName der Tabelle zu verwenden. Das ist der Name, der im Projektexplorer des VBA-Editors außerhalb der Klammer steht. Bei deutschem Excel ist das üblicherweise TabelleX wobei X eine fortlaufende Nummer ist. Vorteil: der CodeName ändert sich nicht.

Code:

With Tabelle1.PageSetup

[Tommiks]

Vielen Dank für die Unterstützung