Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
456to460
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
456to460
456to460
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Code auf Knopfdruck einfügen

Code auf Knopfdruck einfügen
21.07.2004 09:42:55
Gerold
Hallo und Guten Morgen,
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

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Code auf Knopfdruck einfügen
21.07.2004 10:25:21
Gerold
Hallo Volker,
erstmal vielen Dank für deine Antwort.
Ich werde es mal ausprobieren.
Gruß
Gerold Dornbusch
AW: Code auf Knopfdruck einfügen
21.07.2004 11:01:22
Ralf
Hallo Gerold,
da ich mit VBA gerade beginne, und mich Dein Code
sehr interessiert ( auch ohne Knopfdruck :-) , wollte
ich Dich nur bitten, ob Du mir sagen kannst was man
mit diesem Code machen muß, damit er läuft ?
Schon mal vorab vielen Dank für Deine Mühe.
Gruß
Ralf
Anzeige
AW: Code auf Knopfdruck einfügen
REinhard
Hi Ralf,

Sub test()
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

dann siehst du bei Seitenansicht direkt was der Code gemacht hat. So wie er vorlag lief er auch, in "DieseArbeitsmappe", immer dann wenn du Dateispeichern ausgewählt hast.
Gruß
Reinhard
AW: Code auf Knopfdruck einfügen
21.07.2004 11:38:07
Gerold
Hallo Ralf,
ist Deine Frage geklärt?
Gruß
Gerold
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige