---

Hallo zusammen!

In einer Excel-Datei (*.xlsm) möchte ich die mittlere Fußzeile mit Speicherdatum und Text durch VBA befüllen. Solange unter "Hopf- und Fußzeilentools" Der Haken bei "Optionen > Gerade & ungerade Seiten untersch." nicht gesetzt ist, funktioniert das auch.

Der Code lautet so:

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
    With ActiveSheet.PageSetup
              .CenterFooter = "&""arial""&6""Stand: " & Format(Date, "dd.mm.yyyy") & Chr(10) & "Text1" & Chr(10) & "Text2"
    End With
End Sub

Wenn jedoch besagter Haken gesetzt wird, erscheint der Text nur auf den ungeraden Seiten. Was muss ich ändern, um ihn auf allen Seiten anzeigen zu lassen?

mfg, Ingo 

------------------
"Umwege erhöhen die Ortskenntnisse!"

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Ungetestet, nur gegoogelt, aber vielleicht hilft es ja schon:
http://www.jumper.ch/excel_vba/168.htm
HTH 

------------------
Gruß,
runkelruebe          Herr Kann-ich-nich wohnt in der Will-ich-nich-Straße...

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Eine Makroaufzeichnung hätte dir helfen können  

Code:

---

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
    With ActiveSheet.PageSetup
            .CenterFooter = "&""arial""&6""Stand: " & Format(Date, "dd.mm.yyyy") & Chr(10) & "Text1" & Chr(10) & "ungerade Seiten"
            .EvenPage.CenterFooter.Text = "&""arial""&6""Stand: " & Format(Date, "dd.mm.yyyy") & Chr(10) & "Text1" & Chr(10) & "gerade Seiten"
    End With
End Sub

---

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Vielen Dank an Thomas und runkelruebe, beide Beiträge haben zur Lösung geführt. Zugegebenermaßen habe ich bis heute noch nicht mit dem Makrorekorder gearbeitet, sondern mir meine Makros mit Hilfe des Internets (auch dieses Forums) immer im VBA-Editor (Alt+F11) zusammen gefrickelt. Dieses hat bisher trotz meines Nichtwissens bzgl. VBA oft funktioniert. Den Rekorder sollte ich mir aber in der Tat mal vornehmen.

@ Thomas:

Dein Ansatz funktioniert und der Code lautet nun wie folgt:

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
    With ActiveSheet.PageSetup
              .CenterFooter = "&""arial""&6" & "Stand: " & Format(Date, "dd.mm.yyyy") & Chr(10) & "Text1" & Chr(10) & "Text2"
              .EvenPage.CenterFooter.Text = "&""arial""&6" & "Stand: " & Format(Date, "dd.mm.yyyy") & Chr(10) & "Text1" & Chr(10) & "Text2"
    End With
End Sub

@runkelruebe:

Dein Hinweis war ebenfalls hilfreich. Aus dem Beitrag über das doppelseitige Drucken habe ich folgenden Code ausprobiert:

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Dim i As Integer
    For i = 1 To Seitenanzahl
        If i Mod 2 = 0 Then
            With ActiveSheet.PageSetup
              .CenterFooter = "&""arial""&6" & "Stand: " & Format(Date, "dd.mm.yyyy") & Chr(10) & "Text1" & Chr(10) & "Text2"
            End With
        End If
    Next
End Sub

Dieser funktioniert ebenfalls, und zwar sowohl für gerade als auch für ungerade Seiten, obwohl im Makro eigentlich nur gerade Seitenzahlen angesprochen werden, aber gut.

mfg, Ingo 

------------------
"Umwege erhöhen die Ortskenntnisse!"

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

>> Den Rekorder sollte ich mir aber in der Tat mal vornehmen.

Wenn Du das tust, auf jeden Fall diese Tipps beherzigen:
Achtung Makrorekorder oder Wer selektiert denn da? und natürlich auch den Rest der online-excel-Seite 

------------------
Gruß,
runkelruebe          Herr Kann-ich-nich wohnt in der Will-ich-nich-Straße...

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP