ich habe mit Hilfe der Vorschläge im Forum folgenden Code erstellt, der allerdings nicht reibungslos läuft. Ich wollte, dass jeweils in jeder Zeile der Spalte "W" die aktuelle Seite angezeigt wird. Dies funktionierte teilweise auch, doch dann erscheint wieder nur die Gesamtseitenzahl. Was habe ich falsch gemacht?
Sub seitenzahl()
Worksheets("Aktion").Unprotect Password:=""
Dim iSeite As Integer
ActiveSheet.PageSetup.PrintArea = ("A1:L68")
Seite = ActiveSheet.HPageBreaks.Count + 1
seiten = ActiveWindow.SelectedSheets.HPageBreaks.Count + 1
With ActiveSheet.Range("W1:W68").Select
Selection.ClearContents
For iSeite = 1 To 68
Cells(iSeite, 23) = Seite
'Schreibt die Seite der jeweiligen Zeile in die Spalte W
Next iSeite
End With
Range("A4").Select
Worksheets("Aktion").Protect Password:=""
End Sub
Kann mir vielleicht jemand weiterhelfen?
Vielen Dank
Anne