ich möchte folgendes noch Ergänzen mit:
Links Oben Logo
Rechts Oben Bearbeiter
(wenn möglich Inhalt aus einer Zelle z.B. Name)
und das ganze Starten mit Userform-Fenster.
Sub Fußzeile()
' makro am 25.10.99
On Error GoTo errorhandler
If ActiveWorkbook.Path = "" Then
MsgBox ("Datei wurde noch nicht gesichert, einfügen Fußzeile nicht sinnvoll")
End
Else
With ActiveSheet.PageSetup
.LeftFooter = "&6" & ActiveWorkbook.FullName
.RightFooter = "&6&D"
End With
End If
MsgBox ("Fußzeile wurde eingefügt")
End
errorhandler: MsgBox ("wenn kein aktives Blatt vorhanden, kann keine Fußzeile eingefügt werden !")
End
End Sub
Danke Udo