Fußnote

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