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