| VBA - Beispiel 014 | |
|
|
Kopf- und Fußzeile einfügen |
|
|
Im ersten Makro wird Dateiname und Speicherpfad in die Kopfzeile (rechts) eingefügt. Vorher wird noch die Schriftgröße auf 14 festgelegt. Mit dem zweiten Makro wird in der Fußzeile der Benutzername eingetragen und mit dem dritten der letzte Eintrag aus Spalte A. |
|
|
Sub Kopfzeile_mit_Pfad() ' legt zuerst Schriftart Comic Sans MS fest ' dann Schriftgröße 14 und ' fügt Dateiname mit -Pfad in die Kopfzeile ein ActiveSheet.PageSetup.RightHeader = "&""Comic Sans MS""&14" & ActiveWorkbook.FullName End Sub Sub Fußzeile() 'Benutername in Fußzeile ActiveSheet.PageSetup.LeftFooter = Application.UserName End Sub Sub letzten_Eintrag_Spalte_A_in_Kopfzeile() Dim Inhalt As String 'letzte Zelle in Spalte A suchen Inhalt = Cells([A65536].End(xlUp).Row, 1).Value 'in Kopfzeile eintragen ActiveSheet.PageSetup.RightHeader = Inhalt ''das geht auch in einem Schritt ''aber Vorsicht bei Datum 'ActiveSheet.PageSetup.RightHeader = Cells([A65536].End(xlUp).Row, 1).Value End Sub |
|
|
Download: vba014.zip |
|
relevante Links:
|
|
| |