Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Code auf Knopfdruck einfügen

Forumthread: 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
Anzeige

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
Anzeige
AW: Code auf Knopfdruck einfügen
21.07.2004 11:38:07
Gerold
Hallo Ralf,
ist Deine Frage geklärt?
Gruß
Gerold
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige