mit VBA Seitenzahl einfügen
03.01.2006 12:57:40
Ernst
Ich möchte in einer Arbeitsmappe die Tabellen bzw. Seitenzahl mittels VBA einfügen. Der untenstehende Code fügt nur die Totale Seitenzahl ein.
Wie müsste der Code lauten um die Seitenzahl in jeder Tabelle einzufügen?
Für eine Antwort bin ich dankbar.
Mit freundlichen Grüßen
Ernst Dunkel
Sub SeitenNummerieren()
Dim Anzahl As Integer
For Anzahl = 1 To Worksheets.Count
Range("A1").Value = "Seite " & Anzahl
Next Anzahl
End Sub
Anzeige