Microsoft Office Forum [ www.Office-Fragen.de ] >> READONLY <<

Microsoft Office 2003-2019 => Excel => Thema gestartet von: traube6 am Juli 18, 2013, 20:10:20 Nachmittag

Titel: Office 2013: Römische Seitenzahlen
Beitrag von: traube6 am Juli 18, 2013, 20:10:20 Nachmittag

Guten Abend zusammen,

habe folgendes Problem. Fertige gerade meine Bachelorarbeit an mit einem Worddokument und einem Exceldokument.
Ich habe im Wordteil 4 römische Ziffern vergeben. Nun möchte ich gerne, dass meine 10 Excelseiten römisch nummeriert werden (soll ab V starten).

Kann mir bitte jemand helfen?

Vielen Dank im Voraus

Titel: Antw:Office 2013: Römische Seitenzahlen
Beitrag von: maninweb am Juli 19, 2013, 11:01:41 Vormittag

Hallo traube6,

das geht meines Wissens nur mit VBA. Folgend ein Beispielcode, der Dir alle Seiten der aktiven
Tabelle ausdruckt. (Vorschau geht nicht)

Code: Visual Basic

1. Option Explicit
2.  
3. Sub RoemischeSeitenzahlen()
4.  
5.   Dim lngPages As Long
6.   Dim lngIndex As Long
7.  
8. ' Seitenanzahl...
9.  
10.   lngPages = ExecuteExcel4Macro("GET.DOCUMENT(50)")
11.  
12. ' Alle Seiten durchlaufen..
13.  
14.   For lngIndex = 1 To lngPages
15.    
16.     ActiveSheet.PageSetup.CenterFooter = _
17.     Application.WorksheetFunction.Roman(lngIndex)
18.    
19.     ActiveSheet.PrintOut From:=lngIndex, To:=lngIndex
20.    
21.   Next lngIndex
22.  
23. ' Zurücksetzen...
24.  
25.   ActiveSheet.PageSetup.CenterFooter = ""
26.  
27. End Sub
28.  

Gruß