Code auf Knopfdruck einfügen
21.07.2004 09:42:55
Gerold
ich habe in diesem Forum den nachfolgenden Code zum eintragen eines Speicherdatum's gefunden.
Dieser funktioniert auch einwandfrei.
Ich habe nur folgende Frage:
Diesen Code möchte ich gerne auf Knopfdruck (Menüleiste/Menüpunkt) in
das ein oder andere Projekt an dem ich arbeite eintragen lassen.
Wie kann man das realisieren?
Private Sub Workbook_BeforeSave( _
ByVal SaveAsUI As Boolean, Cancel As Boolean)
Dim wks As Worksheet
For Each wks In ThisWorkbook.Worksheets
With wks.PageSetup
.RightFooter = "&8Seite: &P von &N" & Chr(10) & "Gespeichert am: " & Format(Date, "dd.mm.yyyy")
.FooterMargin = Application.InchesToPoints(0.393700787401575)
End With
Next wks
End Sub
Für Eure Hilfe im voraus schon mal besten Dank
Gruß
Gerold Dornbusch
Anzeige