VBA - Beispiel 014
mail schreiben
mail schreiben

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