Gruppe
Druck
Problem
Wie kann ich in die Fußzeile des 1. Arbeitblattes jeder Arbeitsmappe, die ich öffne, den Pfad, die Seitenzahl und den UserNamen eintragen lassen?
StandardModule: basMain
Sub Oeffnen()
Const csFilter As String = "Excel-Dateien(*.xls), *.xls"
Dim vFile As Variant
vFile = Application.GetOpenFilename(dFilter)
If vFile = False Then Exit Sub
Workbooks.Open vFile
With ActiveWorkbook.ActiveSheet.PageSetup
.LeftFooter = ActiveWorkbook.Path
.CenterFooter = "&N"
.RightFooter = Application.UserName
End With
End Sub