[Excel] Automatische Seitennummrierung Geschlossen

Question

Guten Tag, 

Ich bin gerade beim Erstellen eine Excel(2010)-Datei mit mehrerer Seiten. Aber die Zahl der Seiten ist nicht fest , da es eine Macro codiert worden, das manche Seiten abhängig von vorgegebenen Eingaben löscht . ich möchte nun wissen ob es möglich wäre, jede Seite automatisch zu nummerieren ?

Danke für Ihre Antworten /  Tipps / Lösungen

margot · Answer

Guten Tag,

rechts klicken auf ihre Tabelle, und wählen Sie  "Code anzeigen" aus
Visual Basic wird geöffnet
rechts Klicken auf "Microsoft Excel Object" von ihrer Arbeitsmappe, wählen Sie "Einfügen" dann Modul aus.
folgendes Macro im Module setzen :

Dim PageNum As Byte  

Sub Numerotation()  
Application.ScreenUpdating = False  
PageNum = 1  
For Each sh In Sheets  
sh.Select  
Range("hier ist die Zellenreferenz wo die Seitennummer geschrieben soll).
Value = PageNum  
PageNum = PageNum + 1  
Next sh  
Application.ScreenUpdating = True  
End Sub


Es reicht dass Sie dieses Macro von ihrer Arbeitsmappe aufrufen ,damit es ausgeführt werden soll.