ich verwende noch längere Zeit Office 2000 und habe darum diesen Befehl in ein Formular geschrieben.
(das Makro soll die Fusszeile mit dem Pfad und DateiNamen versehen, aber nur wenn vorher gespeichert wurde!)
Der Befehl funktioniert auch bestens, aber wenn Tabelle1 nicht in der Mappe vorkommt, erscheint ein Fehler.
Wie kann ich "Tabelle1" durch das aktive Sheet ersetzen?
Ich habe wirklich das ganze Forum durchsucht, aber nix passendes gefunden.
Jetzt schon bedanke ich mich für Hilfe.
Markus
Private Sub CommandButton1_Click()
If ActiveWorkbook.Saved Then
ActiveWorkbook.Worksheets("Tabelle1").PageSetup.LeftFooter = _
ActiveWorkbook.FullName
Unload Me
ActiveWindow.SelectedSheets.PrintPreview
Else
Unload Me
MsgBox ("Ich kann DateiName und -Pfad nur in die Fusszeile schreiben," _
& Chr(13) & "wenn die Datei gesichert ist, darum bitte sichern!"), , "Markus sagt: "
End If
End Sub