Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
344to348
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
344to348
344to348
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Makros löschen

Makros löschen
02.12.2003 15:54:46
Jürgen F.
Hallo Excelprofis,

ich brauche eure Hilfe:

Ich schreibe mit folgenden Code das Datum in die Fußzeile:


Private Sub Workbook_Open()
Worksheets("Kalkulation").PageSetup.RightFooter = "Erstellt am " & Date
End Sub


Welchen Code muss ich bei:


Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, _
Cancel As Boolean)
schreiben, damit das obrige Makro gelöscht wird???
Vielen Dank im Voraus + Gruß
Jürgen

                    

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Gegenfrage
02.12.2003 16:04:06
Otto Ecker
warum fragst Du nicht einfach ab, ob bereits ein Eintrag vorhanden ist und tust nichts oder wenn kein Eintrag, dann ...

Gruß Otto
AW: Gegenfrage
02.12.2003 16:17:49
Jürgen F.
Danke, könnte auch klappen, nur bin ich absoluter VBA-Anfänger. Hast du eine Ahnung wie der Code dann aussehen muß?

Gruß
Jürgen
AW: Makros löschen
02.12.2003 16:28:01
Otto Ecker
Hallo Jürgen,


Sub b()
If Left(Worksheets(1).PageSetup.RightFooter, 8) = "Erstellt" Then
MsgBox "Eintrag schon vorhanden"
Else
Worksheets(1).PageSetup.RightFooter = "Erstellt am " & Date
End If
End Sub


Gruß Otto
AW: Makros löschen
02.12.2003 16:33:45
Jürgen F.
Es klappt!

Vielen Dank!

Jürgen
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige