Pfadangabe

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo
&L Richtet nachfolgende Zeichen links aus.
&C Zentriert das nachfolgende Zeichen.
&R Richtet nachfolgende Zeichen rechts aus.
&E Schaltet Doppelt Unterstreichen ein oder aus.
&X Schaltet Hochstellen ein oder aus.
&Y Schaltet Tiefstellen ein oder aus.
&B Schaltet Fettdruck ein oder aus.
&I Schaltet Kursivdruck ein oder aus.
&U Schaltet Unterstreichen ein oder aus.
&S Schaltet Durchstreichen ein oder aus.
&D Druckt das aktuelle Datum.
&T Druckt die aktuelle Zeit.
&F Druckt den Namen des Dokuments.
&A Druckt den Namen des Registers einer Arbeitsmappe.
&P Druckt die Seitenzahl.
&P+Zahl Druckt die Seitenzahl zuzüglich der angegebenen Zahl.
&P+Zahl Druckt die Seitenzahl abzüglich der angegebenen Zahl.
&& Druckt ein einzelnes kaufmännisches Und-Zeichen.
&"Schriftart" Druckt die nachfolgenden Zeichen in der angegebenen Schriftart. Schriftart muss von Anführungszeichen eingeschlossen sein.
&nn Druckt die nachfolgenden Zeichen im angegebenen Schriftgrad. Geben Sie eine zweistellige Zahl an, um den Schriftgrad anzugeben.
&N Druckt die Gesamtanzahl der Seiten eines Dokumentes.
diesen Code in diese Mappe kopieren, startet Auto bei öffnen


Sub auto_open()
Dim ws As Variant
Application.ScreenUpdating = False
For Each ws In Worksheets
ws.PageSetup.LeftFooter = Format(Date, "d.m.yyyy") & " von " & Application.UserName
ws.PageSetup.CenterFooter = "&F/&A"
ws.PageSetup.RightFooter = "&P/&N"
Next ws
Application.ScreenUpdating = True
End Sub

Buchstaben anpassen Liste oben zeigt was möglich ist
gruss geri

Sub auto_open() Dim ws As Variant Application.ScreenUpdating = False For Each ws In Worksheets ws.PageSetup.LeftFooter = Format(Date, "d.m.yyyy") & " von " & Application.UserName ws.PageSetup.CenterFooter = "&F/&A" ws.PageSetup.RightFooter = "&P/&N" Next ws Application.ScreenUpdating = True End Sub

Sub auto_open() Dim ws As Variant Application.ScreenUpdating = False For Each ws In Worksheets ws.PageSetup.LeftFooter = ThisWorkbook.Path & "\" & ThisWorkbook.Name Next ws Application.ScreenUpdating = True End Sub

Hallo Geri,
die Abkürzungen sind toll, leider funktioniert "&Z" anders in Excel 2000, es wird bei "&Z&F" trotzdem nur der Dateiname angezeigt, er wird als &[Datei]eingetragen. Wahrscheinlich weil es in Excel 2000 das Feld &[Pfad} auch nicht gibt.
Der Eintrag geschieht auch immer im mittleren Feld, egal, ob da LeftFooter, oder RightFooter steht, steht das "&Z" nicht vielleicht doch für Zentrieren?
Weiter kann ich mit dem Sub auto_open() nichts anfangen, meinst Du vielleicht, da Du schreibst, dass der Code in diese Mappe kopiert werden soll, Private Sub Workbook_Open()?
Dann kommt noch hinzu, dass der Code so, bei jedem Öffnen, aufs neue in die Fusszeile geschrieben wird,&[Datei]&[Datei]&[Datei], das kann nicht gewollt sein.
Da bleib ich lieber bei meiner Konstruktion mit ThisWorkbook.Path & "\" & ThisWorkbook.Name
Gruss Jörg

Beliebteste Forumthreads (12 Monate)

10 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

10
Beiträge zum Forumthread

Beiträge zu diesem Forumthread