Excel-Makro: unveränderliches Datum in Fußzeile

Computer: Software & Programmierung Visual Basic
#1

Moin,
ich habe ein Makro, das mir automatisch die Kopf- und Fußzeile in Excel befüllt. Das ganze sieht derzeit so aus:

Sub KopfFußzeile_automatisch()
’
’ KopfFußzeile_automatisch Makro
’

’
ActiveSheet.PageSetup.RightHeaderPicture.Filename = _
„V:\Vorlagen\Bilder.PNG“
ActiveSheet.PageSetup.PrintArea = „“
With ActiveSheet.PageSetup
.LeftHeader = „“
.CenterHeader = „“
.RightHeader = „&G“
.LeftFooter = „&8Erstellt von: mir, Abt. XY“ & Chr(10) & „&8Erstellt am: xx.xx.2011“
.CenterFooter = „&8&A, &F“
.RightFooter = „&8letzter Druck: &T, &D“ & Chr(10) & „Seite &amp:stuck_out_tongue_winking_eye: von &N“

End With
End Sub

Die Frage ist nun, ob man den Teil „&8Erstellt am: xx.xx.2011“ so ändern kann, dass man beim Ausführen immer das aktuelle Datum bekommt, welches sich dann aber NICHT weiter ändert. Also nicht die Funktion „heute()“ simuliert?

Danke und Gruß

#2

Hi metaltrick

.LeftFooter = „&8Erstellt von: mir, Abt. XY“ & _
Chr(10) & "&8Erstellt am: „& Format(now(),dd.MM.yyyy“)

sollte funktionieren.

HTH.

Markus

#3

Hallo metaltrick,

du könntest mal folgendes versuchen:
Statt deiner Zeile

.LeftFooter = "&8Erstellt von: mir, Abt. XY" & Chr(10) & "&8Erstellt am: xx.xx.2011"

schreib mal

If Not (Right(.LeftFooter, 10) Like "##.##.####") Then \_
 .LeftFooter = "&8Erstellt von: mir, Abt. XY" & Chr(10) & "&8Erstellt am: " & Date

Damit wird der .LeftFooter nur geschrieben, wenn am Ende nicht schon ein Text der Form xx.xx.xxxx steht.
Ich habs jetzt nur so hingeschrieben und nicht getestet. Also evtl. Syntaxfehler korrigieren.

Gruß, Andreas