Hallo Spezialisten
seit der Umstellung füllt das Makro die Signatur nicht mehr aus.
Was könnte vorliegen?
&ltpre&gt
Sub linke_fusszeile()
Application.ScreenUpdating = False
If UserApplication = "stae" Then
Signatur = "Stä"
End If
If UserApplication = "gebh" Then
Signatur = "GH"
End If
If UserApplication = "buer" Then
Signatur = "Bür"
End If
If UserApplication = "kost" Then
Signatur = "Kost"
End If
If UserApplication = "boll" Then
Signatur = "BF"
End If
For Each ws In Worksheets
ws.PageSetup.LeftFooter = Format(Date, "d.m.yyyy") & " Erst.: " & Signatur
Next ws
Application.ScreenUpdating = True
End Sub&lt/pre&gt
Danke für die Hilfe.
freundlich grüsst urs