Collapse column

« vorheriges nächstes »
Seiten: [1]   Nach unten

Autor Thema: Office 2013: Römische Seitenzahlen  (Gelesen 1899 mal)

Offline traube6

  • Newbie
  • *
  • Beiträge: 1
    • Profil anzeigen
  • Office-KnowHow: Amateur
  • VBA-KnowHow- : Ohne
  • Version [Office] : Office 2010
Office 2013: Römische Seitenzahlen
« 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
Gespeichert
Keine Lösung gefunden? Du kannst Dich gerne an unser erfahrenes Experten-Team wenden und Dein Anliegen in Auftrag geben.
>>> Schnell und einfach ein unverbindliches Angebot anfordern. Per E-Mail an anfrage@excel-inside.de oder per Online-Formular <<<

!!! Wichtige Information !!! Dieses Forum steht aus technischen Gründen ab dem 11. September 2019 nur noch im Lesemodus zur Verfügung.
Das NEUE Office-Fragen-Forum kannst du aber unter der gewohnten Domain https://office-fragen.de wie gewohnt nutzen.
- Wir freuen uns auf deinen Besuch im neuen Forum.

Offline maninweb

  • Global Moderator
  • Hero Member
  • *****
  • Beiträge: 1.063
    • Profil anzeigen
    • Excel Formula Translator
  • Office-KnowHow: Experte
  • VBA-KnowHow- : Sehr gut
  • Version [Office] : Office 2016
Antw:Office 2013: Römische Seitenzahlen
« Antwort #1 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ß
Gespeichert
Microsoft Excel Expert · Microsoft Most Valuable Professional (MVP) from 01/2011 - 06/2019
https://de.excel-translator.de :: Online Excel-Formel-Übersetzer :: Alle Übersetzungen der Excel Funktionen & Fehlerwerte
Wenn du dich noch intensiver mit Excel beschäftigen möchtest, dann empfiehlt sich ein Online-Kurs,
in dem du sehr viel über Excel erfährst und das gelernte umgehend in der Praxis anwenden kannst.
Seiten: [1]   Nach oben
« vorheriges nächstes »
 

Cookies erleichtern die Bereitstellung unserer Dienste. Mit der Bestätigung erklären Sie sich mit der Verwendung von Cookies einverstanden. Learn more