Seitenzahlen
25.05.2005 11:05:35
Marc
ich habe mir folgenden Code aus dem Internt zusammengesucht, um mir die Seitenzahl + 1 ausgeben zu lassen. Das funktioniert auch ganz prima. Aber jetzt möchte ich das nicht nur in der Zelle I55 sondern von da an alle 65 Zeilen wiederholen, sofern die entsprechende Seite gefüllt ist. Kann mir jemand helfen den Code entsprechend umzuschreiben?
Ich danke schonmal ganz herzlich für die Hilfe!
Gruß,
Marc Richter
Sub Nummerieren()
Dim ix As Integer
For ix = 1 To ActiveWorkbook.Worksheets.Count
Sheets(ix).Range("i55").Value = ix + 1
Next ix
End Sub