Fusszeile VBA
17.09.2008 08:36:05
Frank
Ich möchte das mein Workbook die Seitennumerierung in der Fusszeile automatich über VBA erfolgt
Dafür habe ich diese Code gefunden nur bleibt das Programm immer auf Blatt 1 stehen
Sub SeitenNummerieren()
Dim Anzahl As Integer
Dim wks As Worksheet
For Each wks In Worksheets
For Anzahl = 1 To Worksheets.Count
ActiveSheet.PageSetup.RightFooter = "0505.68/2" & "Page " & Anzahl
Next Anzahl
Next
End Sub
Was mache ich hier falsch ?
Danke für eure hilfe
Gruss
Frank
Anzeige