Gruppen
- Top Gruppen
- Betriebsysteme
- Windows classik
- Linux
- BS-Sonstige
- Software
- Datenbanken
- Bildbearbeitung
- Audio/mp3/Video
- Security/Viren
- SW-Sonstige
- Hardware
- Mainboard/CPU
- Grafikkarten
- Peripherie
- Laptop/Notebook
- HW-Sonstiges
- Netzwerk
- Telefon,ISDN,Modem
- W-Lan
- NW-Sonstiges
- Programmierung
- PHP,ASP,Perl...
- Java,C++...
- Webseiten/HTML
- Sonstiges
- PC-Sonstiges
- Plauderecke
- SN Intern
- Test
/ Forum / Tabellenkalkulation
Tabellenkalkulation
Fragevon m-o-m vom 03.05.2019, 12:54 Options
benutzerdefinierte Fußzeile
Hallo Crackz,
ich bin diesmal schon fast fündig geworden, nur an der letzten Kleinigkeit happert es bei mir wiedereinmal.
Ich möchte in Excel 2003 im aktiven Blatt in der Fußzeile links den Pfad in der Mitte den Text "Seite ??? von ???" und rechts das Druckdatum und von wem das gedruckt wurde.
Dank des Makro von Coros aus einem anderen Thread habe ich den Pfad, das Datum und den Benutzer schon hinbekommen.
Nun wird das Datum aber inklusive Uhrzeit dargestellt, ich brauche aber nur das Datum.
Und die Seitenanzahl kriege ich nun garnicht hin.
Anbei nun das Makro, welches ich verwende.
Private Sub Workbook_Open()
Dim Anzahl_Blätter As Integer
For Anzahl_Blätter = 1 To Worksheets.Count
Sheets(Anzahl_Blätter).PageSetup.LeftFooter = "&10" & ActiveWorkbook.Path
Sheets(Anzahl_Blätter).PageSetup.CenterFooter = "&10" & "Seite " & ??? & "von " & ???
Sheets(Anzahl_Blätter).PageSetup.RightFooter = "&10" & "Druck: " & Now & " von " & Application.UserName
Next
End Sub
Schonmal im Voraus vielen Dank.
Gruß m-o-m
ich bin diesmal schon fast fündig geworden, nur an der letzten Kleinigkeit happert es bei mir wiedereinmal.
Ich möchte in Excel 2003 im aktiven Blatt in der Fußzeile links den Pfad in der Mitte den Text "Seite ??? von ???" und rechts das Druckdatum und von wem das gedruckt wurde.
Dank des Makro von Coros aus einem anderen Thread habe ich den Pfad, das Datum und den Benutzer schon hinbekommen.
Nun wird das Datum aber inklusive Uhrzeit dargestellt, ich brauche aber nur das Datum.
Und die Seitenanzahl kriege ich nun garnicht hin.
Anbei nun das Makro, welches ich verwende.
Private Sub Workbook_Open()
Dim Anzahl_Blätter As Integer
For Anzahl_Blätter = 1 To Worksheets.Count
Sheets(Anzahl_Blätter).PageSetup.LeftFooter = "&10" & ActiveWorkbook.Path
Sheets(Anzahl_Blätter).PageSetup.CenterFooter = "&10" & "Seite " & ??? & "von " & ???
Sheets(Anzahl_Blätter).PageSetup.RightFooter = "&10" & "Druck: " & Now & " von " & Application.UserName
Next
End Sub
Schonmal im Voraus vielen Dank.
Gruß m-o-m
Antwort 1 von coros vom 03.05.2019, 13:28 Options
Hi m-o-m,
nachfolgender Code sollte das machen, was Du Dir vorgestellt hast.
MfG,
Oliver
Da hier der einzige Lohn für die Helfer eine Rückmeldung ist, wäre es nett, wenn Du ein
Feedback abgeben könntest, ob der Lösungsvorschlag Dein Problem gelöst hat.
nachfolgender Code sollte das machen, was Du Dir vorgestellt hast.
[b]Private Sub Workbook_Open()
Dim Anzahl_Blätter As Integer
For Anzahl_Blätter = 1 To Worksheets.Count
Sheets(Anzahl_Blätter).PageSetup.LeftFooter = "&10" & ActiveWorkbook.Path
Sheets(Anzahl_Blätter).PageSetup.CenterFooter = "&10" & "Seite &P von &N Seiten"
Sheets(Anzahl_Blätter).PageSetup.RightFooter = "&10" & "Druck: " & Format(Now, "dd.mm.yyyy") & " von " & Application.UserName
Next
End Sub[/b]MfG,
Oliver
Da hier der einzige Lohn für die Helfer eine Rückmeldung ist, wäre es nett, wenn Du ein
Feedback abgeben könntest, ob der Lösungsvorschlag Dein Problem gelöst hat.
Ähnliche Themen
fußzeile
Pappnasenalarm 07.04.2007 - 125 Hits - 1 Antwort
trotz Abschnittswechsel keine neue Kopfzeile möglich?
Doro78 15.05.2007 - 95 Hits - 2 Antworten
Benutzerdefinierte Formatierung von Zelle leer
dvdh 02.12.2007 - 95 Hits - 1 Antwort
Office 2007 - Frage
Minzurion 31.01.2008 - 32 Hits - 3 Antworten
Hinweis
Diese Frage ist schon etwas älter, Sie können daher nicht mehr auf sie antworten. Sollte Ihre Frage noch nicht gelöst sein, stellen Sie einfach eine neue Frage im Forum..
Neue Einträge
