Tabellenblatt abfragen
21.08.2003 11:02:04
Christian Wagner
ich habe eine Datei in der mehrere Tabellenblätter sind. Je nachdem welches eingestellt ist, soll die Fußzeile abgeändert werden. Das in die Fußzeile schreiben funktioniert ja recht gut. Aber die Abfrage für die Tabellenblätter ?? stimm in meinem Makro irgendwie nicht.
Könntet Ihr das mal kontrollieren und mir meinen Fehler mitteilen.
Gruss Christian
Code:
Private Sub Workbook_BeforePrint(Cancel As Boolean)
For Each ws In Worksheets
ws.PageSetup.LeftFooter = "&08" & vbLf & ActiveWorkbook.FullName
If ActiveSheet.Name = "Tabelle1" Then
ws.PageSetup.RightFooter = "&08" & "&A" & vbLf & "Stand 1"
Else
ws.PageSetup.RightFooter = "&08" & "&A" & vbLf & "Stand 2"
End If
Next
End Sub