Office: (Office 2013) Fußzeile dynamisch

Hallo zusammen,

ich habe lediglich VBA-Grundkenntnisse und komme mit meinem Problem einfach nicht weiter.

Ich habe eine Arbeitsmappe mit mehrerern Tabellenblättern. In jedes Tabellenblatt soll per Makro in die Fußzeile u.a. das Datum, der Firmenname und vor allem die Seitenzahl eingetragen werden.

Jetzt kommen die Besonderheiten:

- Die Seitenzahl soll nicht bei 1 beginnen, sondern um einen Wert aus einer Zelle erhöht werden (Grund: Die Tabellen werden in ein anderes Word-Dokument eingefügt; d.h. die Seitenzahl soll bspw. bei 56 beginnen).

- Die Seitenzahl soll aber über die Tabellenblätter fortlaufend sein. Also bspw. Tabelle 1 ist dann Seite 56 bis 68 und Tabelle 2 dann von 69 bis 81.

Ich sitze da jetzt seit 4 Stunden dran und schaffe es nicht dies hinzubekommen.

- Entweder ich bekomme eine fortlaufende Seitenzahl hin, jedoch kann ich die nicht erhöhen.
- Erhöhe ich nämlich die, beginnt auf jedem Tabellenblatt die Seitenzahl wieder von vorne (bei meinem Beispiel wieder bei Seite 56 und nicht dann bei Seite 69).

Folgenden Code habe ich bisher gemacht, der jedoch nur die Seitenzahl auf dem ersten aktivierten Tabellenblatt schreibt, jedoch nicht auf die anderen markierten Tabellenblätter. Wahrscheinlich muss man irgendwie mit einer Schleife arbeite, die jedoch meine VBA-Kenntnisse übersteigt.

Es wäre wirklich klasse, wenn ihr mir helfen könntet. Schönen Abend Euch!


Code:

:)

 

Hallöchen,

ab XL2010 hat M$ da etwas geändert ... schau mal hier
https://www.ms-office-forum.net/foru...d.php?t=349182

 

Hallo,

danke für dein Feedback. Kann es sein, dass der Link falsch ist?

In dem Beitrag geht es um die Gesamtseitenanzahl also bspw. Seite 3 von 10.

Ich habe das Problem, dass wenn ich zwei Tabellenblätter habe in der Fußzeile stehen soll:

Seite 10 (erste Seite aus dem Tabellenblatt A)
Seite 11 (zweite Seite aus dem Tabellenblatt A)
Seite 12 (erste Seite aus dem Tabellenblatt B).

(Die erste Seite muss dabei um bestimmten Wert aus einer Zelle erhöht werden; hier im Beispiel um 9)

Ich bekomme halt entweder nur Seite 10 und 11 dargestellt (und auf der Seite von Tabellenblatt B steht keine Seite mehr in der Fußzeile). Oder halt Seite 10 und 11 und dann auf der Seite vom Tabellenblatt B beginnt dann wieder von vorne (also dort steht dann wieder Seite 10).

 

Hallo,

natürlich ist der Link dann falsch ... wer kann auch ahnen, was du da tatsächlich vor hast ... ich wüsste nicht wie das automatisch gehen sollte.
Da kannst du höchstens per VBA - siehe die Kopfzeile - deine Seitenzahlen setzen, oder sie händisch eintragen, in der PageBreakPreview.

 

Ich dachte eigentlich, dass meine Anfrage klar genug ausgedrückt war.

Da ich mit VBA nur rudimentär auskenne, wollte ich fragen, ob Du deine Antwort etwas konkretisieren hinsichtlich "PageBreakPreview." könntest.

Vielen Dank vorab!

 

Hallo,

kommt ja doch noch was ...

Du weißt, wie du auf die "Seitenlayout" wechselst ? Gut !

Dann auf das Feld "Hier klicken, um die Fußzeile zu bearbeiten" klicken und deine gewünschte "Seitenzahl" eintragen.
Wie das für die "Kopfzeile" geht, weißt du schon ... anstatt 'Header' könntest du da auch einfach nur 'Footer' in deinem Code schreiben ... ansonsten ist da kein Unterschied.

... das könnte man auch einfach mal ausprobieren ... *rolleyes.gif*

 

Meinst Du das ernst, dass ich per Hand die Seitenzahl in die Kopf- bzw. Fußzeile reinschreiben soll oder habe ich das einfach nur falsch verstanden? *upps

 

Hallo,

klar mein ich das ernst ... *rolleyes.gif*

Ich habe dir deine Möglichkeiten aufgezählt ...

1. händisch eintragen

2. per Code eintragen

Für welche Variante du dich entscheidest ... das weißt nur du. *wink.gif*