Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.04.2024 21:51:33
Idee für Grafik
26.04.2024 21:29:07
PQ zufällige Reihenfolge
26.04.2024 17:18:47
Große Datenmenge in komplexes Diagramm verpacken
26.04.2024 16:22:47
Aktualisierung Verknüpfung bei geschlossener Quelldatei
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1432to1436
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1432to1436
1432to1436
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Seitenzahl über mehrere Sheets

Seitenzahl über mehrere Sheets
24.06.2015 10:45:15
Snewi
Guten Morgen,
ich würde gerne wissen, wie ich in Excel eine Seitenzahl in die Fusszeile bekomme also Seite X von Y über mehrere Sheets!
Also das erste Tabellenblatt hat immer eine Seite! Das zweite Tabellenblatt hat dann 2 bis x!
Gruß

11
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Seitenzahl über mehrere Sheets
24.06.2015 10:56:43
Daniel
Hi
für alle Blätter die Seiteneinrichtung entsprechend einstellen mit Seitennummer.
zum Ausdrucken musst du dann alle Tabellenblätter markieren (Reiter anklicken mit gedr. STRG)
dann werden alle Tabellenblätter als ein Dokument gedruckt und bekommen eine durchgehende Seitenzahl.
Gruß Daniel

AW: Seitenzahl über mehrere Sheets
24.06.2015 11:01:46
Snewi
ich erstelle ein PDF der jeweiligen Tabellenblätter!
vielleicht kann ich das hier über VBA mit einbauen?

Sheets(Array("Tag_Ber", "Zeiten")).Select
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
Pfad & SpeicherName & ".pdf", Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
False
Gruß

Anzeige
AW: Seitenzahl über mehrere Sheets
24.06.2015 11:13:42
Snewi
Hab da was gefunden was auch funktioniert!

Sub Seitenzahlen()
'Ermittelt die Gesamtseitenzahl und trägt unter Seiteeinrichten für jedes Blatt _
die Startseitenzahl ein und passt die Fusszeile an
Dim Startseite() As Integer, Seitengesamt As Integer
'Seitenzahlen ermitteln
ReDim Startseite(1 To ActiveWorkbook.Worksheets.Count)
For i = 1 To ActiveWorkbook.Worksheets.Count
Startseite(i) = Seitengesamt + 1
Seitengesamt = Seitengesamt + ActiveWorkbook.Worksheets(i).HPageBreaks.Count + 1
Next i
'Seiteneinrichtung anpassen
For i = 1 To ActiveWorkbook.Worksheets.Count
With ActiveWorkbook.Worksheets(i).PageSetup
.FirstPageNumber = Startseite(i) 'Startseite setzen
.CenterFooter = "Seite &P von " & Seitengesamt ' Fusszeile anpassen
End With
Next i
End Sub
würde das aber gerne auf die ersten beiden Worksheets beschränken!
Wie mache ich das?
Gruß

Anzeige
AW: Seitenzahl über mehrere Sheets
24.06.2015 11:49:07
Daniel
Hi
für die ersten beiden Blätter ersetze:
For i = 1 to ActiveWorkbook.Worksheets.Count
durch
For i = 1 to 2
Gruß Daniel

AW: Seitenzahl über mehrere Sheets
24.06.2015 11:58:26
Snewi
Ok das klappt schon mal! Wie erreiche ich jetzt noch das nur der center footer gesetzt wird und der Inhalt von links und rechts so wie vorhanden stehen bleibt?
Oder ich setze ihn auch per VBA?
Gruß

AW: Seitenzahl über mehrere Sheets
24.06.2015 12:29:01
Daniel
Hi
die Seiteneinrichtung würde ich von Hand einmalig erstellen, die ändert ich ja nicht.
Gruß Daniel

AW: Seitenzahl über mehrere Sheets
24.06.2015 13:21:38
Snewi
Ok, jetzt würde ich noch gerne das Format der Seitenanzahl setzen! Wie mache ich das?
Gruß

Anzeige
AW: Seitenzahl über mehrere Sheets
24.06.2015 13:31:28
Daniel
hi
im Menü klicken auf:
Seitenlayout - Seite einrichten - Assistent starten (rechte untere Ecke)
im Assistenten dann Reiter "Kopfzeile/Fusszeile" auswählen und dort über die DropDowns ein vorgegebenes Format auswählen, oder über "Benutzerdefiniert" ein eigenes erstellen.
Eigenen Text in die Fehler eintragen.
zum einfügen der Standardtexte (Seite(n), Datum, Zeit, Speicherpfad) auf den entsprechnenden Button klicken.
um das Textformat zu ändern, den Textteil markieren und auf den button A klicken.
Gruß Daniel

AW: Seitenzahl über mehrere Sheets
24.06.2015 13:47:21
Snewi
das geht eben wohl leider nicht! ich machs ja über :

Sub Seitenzahlen()
Dim i As Integer
Dim Startseite() As Integer
Dim Seitengesamt As Integer
'Seitenzahlen ermitteln
ReDim Startseite(1 To 2)
For i = 1 To 2
Startseite(i) = Seitengesamt + 1
Seitengesamt = Seitengesamt + ActiveWorkbook.Worksheets(i).HPageBreaks.Count + 1
Next i
'Seiteneinrichtung anpassen
For i = 1 To 2
With ActiveWorkbook.Worksheets(i).PageSetup
.FirstPageNumber = Startseite(i) 'Startseite setzen
.LeftFooter = "&""Arial,Standard""&12© 2015"
.RightFooter = " Seite &P von " & Seitengesamt ' Fusszeile anpassen
End With
Next i
End Sub

Würde jetzt gerne hier auch das Format setzen!
Klappt irgendwie nicht!

Anzeige
AW: Seitenzahl über mehrere Sheets
24.06.2015 14:04:08
Daniel
HI
von Hand ausführen, Recorder mitlaufen lassen, aufgezeichneten Code anschauen und die benötigten Elemente übernehmen.
Gruß Daniel

AW: Seitenzahl über mehrere Sheets
25.06.2015 09:05:52
Snewi
läuft danke

240 Forumthreads zu ähnlichen Themen

Löschen von Zeilen unter 1 Bedingung
Zeilen

Hallo,
ich habe in einer Excel Liste Produkte geführt, die den aktuellen Lagerbestand anzeigen.
Dort werden auch die Produkte aufgeführt, deren Produkte einen Lagerbestand von 0 haben.
Der Lagerbestand wird in Spalte B aufgeführt, die Produkte stehen in Spalte A. Der Datenbereich b...
08.08.2008 20:15:00
Thread-ID: 1000407
5 Beiträge
Anzeige
HTML-Seiten auslesen und in Excel, MySQL usw. absp
annalena

Hallo,
ich habe in der Struktur gleichmäßig, wiederkehrende HTML-Seiten aus einem Bücher-Shop und möchte die Produkt-Daten, statt abzuschreiben, aus den HTML-Seiten auslesen um diese dann in Excel oder einer DB zu speichern. Erlaubnis liegt natürlich vor - ist also kein Datenklau.
Habe...
28.09.2008 18:09:23
Thread-ID: 1012955
2 Beiträge
Herausforderung: Spezialanalyse von Daten (Matrix)
Daten

Hi all,
ich möchte die Anzahl (die Kombination) von Daten in einer Matrix darstellen und irgendwie fehlt mir die zündende Idee dazu (meine Versuche mit Pivottabellen schlugen fehl).
Quelldaten (eine Liste welcher Kunde hat welche Produkte gekauft):
Kunde Produkt
K1 A
K...
17.11.2008 15:13:22
Thread-ID: 1025247
2 Beiträge
Anzeige
Sortieren in Blöcken von 1 bis 6
1

Hallo!
Habe folgendes Problem welches ich bis jetzt noch nicht gelöst habe:
Tabelle:
A B
1 Wert1
1 Wert2
1 Wert3
1 Wert4
2 Wert5
2 Wert6
2 Wert7
2 Wert8
2 We...
26.02.2009 11:26:24
Thread-ID: 1054286
3 Beiträge
Dynamische Erstellung von Checkboxen in eine Form
Checkboxen

Hallo Excel Gemeinde,
ich möchte gerne je nach Anzahl der Datei in einen Verzeichnis, automatisch
neue Checkboxen in einen Form erzeugen.
Ich habe schon einen kleinen Code der mir die Dateien zählt und dann
eine Checkbox erzeugen soll.
Das Problem im Moment ist , das ich nur...
05.03.2009 15:53:00
Thread-ID: 1056917
4 Beiträge
Fortschrittsbalken in xls x von y
y

Hallo,
ich habe in der Zelle A1 einen MaxWert
In einem anderen Tabellenblatt werden Zeile für Zeile Datensätze aus einer MySQL-DB importiert
Kann ich die Anzahl der importierten Zeilen Zählen und diese prozentual mit meinem MaxWert aus A1 in einem Fortschritsbalken darstellen?
D...
05.03.2009 20:58:11
Thread-ID: 1057025
8 Beiträge
max 1 Zelle von 4 Zellen gültiger Eintrag
4

Hallo zusammen,
wird in einer Zelle von 4 in der Reihe ab Zeile 6 eine 1 eingetragen so sollen die vorhanden Einträge in den Auswahlfeldern A;B;C; und D gelöscht werden!
In den Auswahlfelder darf nur immer ein Eintrag vorliegen!
Es soll damit nur ein "ODER" Eintrag durchgeführt wer...
20.05.2009 19:18:49
Thread-ID: 1076476
7 Beiträge
Auswertung über mehrere Tabellenblätter
Stefan

Hallo zusammen,
ich hoffe ich finde bei Euch Hilfe. Ich habe nun schon einige Zeit das Forum durchsucht aber keine passende Lösung gefunden.
Ich habe eine Arbeitsmappe mit ca. 90 Tabellenblättern. Die Tabellenblätter sind so aufgebaut, das jeweils im Bereich
C6-E60 Daten stehen. In...
17.06.2009 10:51:48
Thread-ID: 1082164
6 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
4
5
1
1
2
2
3
7
6
5
4
2
5
8
1
5
1
3
8
7
1
3
2
1
2