kann mir jemand erklären was genau dieser Code tut? Meine Datei braucht beim Öffnen recht lang durch diese Schleife:
Dim objWS As Worksheet
For Each objWS In ThisWorkbook.Worksheets
objWS.PageSetup.RightFooter = "&""Calibri""&8" & "Ausdruck: " & Environ("UserName") & " / " & _
Format(Date, "dd.MM.yy")
Next
End Sub
Danke