Deine MS-Office-Version: 2007
Suite Deines Office Pakets: Home and Student
AddIn installiert: Nein
Dein Wissensstand: Grundwissen

Welches Virenschutz-Programm hast Du installiert? Symantec Endpoint Protection
Betriebssystem Version: Vista

Was hast Du gemacht, bevor das Problem aufgetreten ist?
Der Bedarf war nicht da zuvor.

Was hast Du bereits versucht um das Problem zu lösen?
Suche im Internet

Fehlerbeschreibung und Nachricht
Hallo!
Ich möchte gerne eine Excel-Tabelle mit römischen Seitenzahlen bestücken (automatisch als Funktion, nicht manuell) anstelle von arabischen Zahlen. Ist das prinzipiell möglich

Des Weiteren frage ich mich, ob und wie man die erste Tabellenseite schon mit einer höheren Zahl, z.B. 204 beginnen lassen kann? In Word kann man das wunderbar mit Abschnittsumbrüchen regeln, ist so etwas in Excel auch möglich?

Gabi

Hi Gabi,

zu Frage 1: versuche es mal mit diesem Code

Code: Alles auswählen

Sub Seitenzahlen_Druckseiten()
    '*******************
    ' Von Herbert Grom - Ermittlung der Druckseitenanzahl
    Dim i As Integer
    i = ExecuteExcel4Macro("Get.Document(50)")
    '*******************
    Dim loSeite As Long
    With ActiveSheet
        For loSeite = 1 To i
            .PageSetup.RightFooter = Application.WorksheetFunction.Roman(loSeite)
            .PrintOut from:=i, to:=i
        Next loSeite
    End With
End Sub

Zu Frage 2:

Register Seitenlayout -> Befehlsgruppe: Seite einrichten, dann kleiner Pfeil unten rechts -> Reiter: Papierformat -> Erste Seitenzahl

Bis später,
Karin

Hallo Karin,
vielen Dank für die Antwort(en).
Leider reichen meine Grundkenntnisse nicht aus, um Antwort 1 umzusetzen. Mit dem Code kann ich nichts anfangen. Wo und wie muss ich ihn anwenden? Sorry für die Unwissenheit. Es liest sich etwas wie ein Makro. Aber mit Makros habe ich in meiner fernen Vergangenheit nur im Word in der einfachsten Form zu tun gehabt. Demnach habe ich wirklich keinen Schimmer.

Danke auch für Antwort 2, die ein grosses Stück weiter hilft. Da ich aber in der Arbeit gerne die Seitenzahlen "x von y" haben möchte, hat sich "x" zwar anpassen lassen, "y" aber leider nicht. Ganz im Gegenteil - "y" zeigt nun den alten Wert in der Druckvorschau und einen fiktiven in der Seitenlayout-Ansicht. Habe leider keine Ahnung, wie das entstehen kann und wie man es beheben kann.

Bin für weitere Ideen wirklich sehr dankbar.

Gabi

Hallo,
den von Karin geposteten Code kannst du am besten ins Before_Print Ereignis der Arbeitsmappe packen.

Dazu gehst du wie folgt vor.

1. ALT F11 drücken - das wechselt in die VBE
2. rechts im Explorerfenster Doppelklick auf diese Arbeitsmappe
3. im Dropdown Mitte umstellen von allgemein auf Workbook und im rechten Dropdown auf BeforePrint
4. zwischen Private Sub Workbook_BeforePrint(Cancel As Boolean) und End Sub kommt nun der Code von Karin und Du kannst das Tabellenfenster schliessen.

Nun kannst es schliessen und beim Druck und in der Seitenansicht wird es automatisch ausgeführt

Zu Punkt 2 weiss ich leider keine Lösung

Hallo,
also mich würde mal der Sinn des Ganzen interessieren. Feldfunktionen gibt es so bei Excel nicht. Sollen die Druckseiten hinterher in ein größeres Dokument aus Word eingebunden werden? Sonst macht vor allem der Punkt 2 für mich keinen Sinn.

Gruß Amethyst

Hallo Gabi,

ich möcht Amethyst nicht wiedersorechen. Aber before_Print wäre das falsche Ereignis. Die Datei würde 2x gedruckt werden, 1x mit den römschen Zeichen und 1x normal.

Starte den VBA Editor (Alt+F11), Bild sollte zweigeteilt sein ansonsten Strg+R, gehe auf Deine Datei, rechte Maustaste, Einfügen Modul, Code ins rechte Fenster kopieren, VBA Editor schließen. Start über Extras, Makro, Makros, Makro wählen, ausführen.

Zu dem zweiten Problem wird sich Karin vielleicht melden, wenn sie vom Reiten zurük ist.

Gruß Hajo

geändert Close in Print geändert

Hi Gabi,

in diesem Fall müsste man den Code wie folgt erweitern:

Code: Alles auswählen

Sub Seitenzahlen_Druckseiten()
    '*******************
    ' Von Herbert Grom - Ermittlung der Druckseitenanzahl
    Dim i As Integer
    i = ExecuteExcel4Macro("Get.Document(50)")
    '*******************
    Dim loStart As Long
    Dim loSeite As Long
    On Error Resume Next
    loStart = InputBox("Bitte die Startseite eingeben", "Erste Druckseite", 1)
    If loStart <> 0 Then
        With ActiveSheet
            For loSeite = 1 To i
                .PageSetup.RightFooter = Application.WorksheetFunction.Roman(loSeite + loStart - 1) & " von " _
                    & Application.WorksheetFunction.Roman(i + loStart - 1)
                .PrintOut from:=i, to:=i
            Next loSeite
        End With
    End If
    On Error GoTo 0
End Sub

Bis später,
Karin

Hallo Hajo,
das beforePrint passt schon !
allerdings mussdann die Zeile von Herbert mit dem Print auskommentiert oder entfernt werden

.PrintOut from:=i, to:=i

denn die machts doppelt gemoppelt

Hallo zusammen!

Ihr seid ja alle total nett und hilfsbereit - vielen Dank!
Jetzt brauch ich aber erst mal etwas Zeit, um alle Vorschläge durchzuprobieren. Ich werde mich dann später wieder melden. Ich kann mir noch nicht recht vorstellen, ob ich das alles umsetzen kann.

Zu der einen Frage mit dem Sinn des Ganzen kurz folgende Erklärung:
Ich habe ein Word-Dokument und als Anhang eine größere Excel-Tabelle. Da sich die Tabelle nicht ordentlich in das Word-Dokument kopieren lässt, wollte ich sie einfach separat bearbeiten. Abliefern muss ich nur einen Ausdruck, nichts elektronisches.
Zu Beginn hatte ich die Wunschvorstellung, die Seiten mit "x von y" im Word-Dokument zu numerieren und den Anhang separat mit römischen Zahlen. Aber das ist mir ja nicht gelungen. Da ich bisher allerdings noch keine Vorgaben für die Seitenzahlformatierung habe, könnte ich die Numerierung auch bis zum Ende durchlaufen lassen zur Not. Finde ich halt nicht so professionell.

Vielleicht gibt es ja eine ganz andere Lösung für mich, doch eher Richtung Excel Tabelle nach Word kopieren. Wie machen das andere Leute?

Das Wort "Feldfunktion" habe ich eigentlich nur benutzt, weil ich nicht wusste, wie ich es sonst nennen soll. War vielleicht etwas unglücklich gewählt, wenn es diese ja gar nicht gibt in Excel. Danke für den Hinweis.

Gabi

Hallo Gabi,
genau deswegen habe ich gefragt. Es gibt vielleicht eine ganze andere Lösung und die dann in Word. Aber dazu muss ich wissen, wie breit die Tabelle ist, ob es sich um eine Tabelle handelt oder um mehrere und ob diese sich auf verschiedenen Tabellenblättern befinden. Was hat denn nicht geklappt beim Übernehmen nach Word?

Gruß Amethyst