Projektname in Diagrammfusszeile schreiben
25.08.2003 16:41:40
Franz
ich habe das Problem, dass mein Makro, das Projektnamen in alle Blätter einer Mappe eintragen soll nur bei Tabellen funtioniert aber nicht bei Diagrammen.
Ich bekomme die Fehlermeldung: "Laufzeitfehler 1004 Die Methode Range für das Objekt -Global ist fehlgeschlagen"
mein code:
Sub Workbook_BeforePrint(Cancel As Boolean)
' Fusszeile Makro
' Makro am 05.08.2003 von Franz aufgezeichnet
Dim projekt As String
Dim blatt As Object
projekt = Range("a2").Value
Zahl = 1
For Each blatt In ActiveWorkbook.Sheets
With Sheets(Zahl).PageSetup
.LeftFooter = projekt
End With
Zahl = Zahl + 1
Next blatt
End Sub
Weiss jemand Rat? Vielen Dank im voraus.
Franz