Gruppen
- Top Gruppen
- Betriebsysteme
- Windows classik
- Linux
- BS-Sonstige
- Software
- Datenbanken
- Bildbearbeitung
- Audio/mp3/Video
- Security/Viren
- SW-Sonstige
- Hardware
- Mainboard/CPU
- Grafikkarten
- Peripherie
- Laptop/Notebook
- HW-Sonstiges
- Netzwerk
- Telefon,ISDN,Modem
- W-Lan
- NW-Sonstiges
- Programmierung
- PHP,ASP,Perl...
- Java,C++...
- Webseiten/HTML
- Sonstiges
- PC-Sonstiges
- Plauderecke
- SN Intern
- Test
/ Forum / Tabellenkalkulation
Tabellenkalkulation
Fragevon mikel_66 vom 15.11.2019, 15:28 Options
Seitenzahlen im Inhaltsverzeichnis automatisieren
Hallo Zusammen,
Ich habe eine Exceldatei mit mehreren Mappen. Die Anzahl der Seiten der einzelnen Mappen ist unterschiedlich und variabel.
Das Ausdrucken mit der richtigen Seitenzahl im Kopf ist ok. Jetzt möchte ich, dass im Inhaltsverzeichnis, wo nur die einzlenen Mappennamen aufgeführt sind, die richtige Seitenzahl steht.
ich hoffe das war verständlich umschrieben...
Ich habe eine Exceldatei mit mehreren Mappen. Die Anzahl der Seiten der einzelnen Mappen ist unterschiedlich und variabel.
Das Ausdrucken mit der richtigen Seitenzahl im Kopf ist ok. Jetzt möchte ich, dass im Inhaltsverzeichnis, wo nur die einzlenen Mappennamen aufgeführt sind, die richtige Seitenzahl steht.
ich hoffe das war verständlich umschrieben...
Antwort 1 von gast123 vom 15.11.2019, 16:27 Options
hi all
ein kleiner trick um diese festzustellen :-)
2 beispiele
gruss gast123
Private Sub Workbook_BeforePrint(Cancel As Boolean)
Range("A2").Value = ExecuteExcel4Macro("Get.Document(50)")
Cancel = True
End Sub
Private Sub Workbook_BeforePrint(Cancel As Boolean)
If Date <> Range("A1") Then
Range("A1") = Date
Range("A2") = 0
End If
If Range("A2").Value < 21 Then
Range("A2").Value = Range("A2").Value + ExecuteExcel4Macro("Get.Document(50)")
Else
Cancel = True
Beenden = _
MsgBox("ZUVIEL PAPIER VERBRAUCHT GEHALTSKUERZUNG :(" & _
OK)
End If
End Sub
ein kleiner trick um diese festzustellen :-)
2 beispiele
gruss gast123
Private Sub Workbook_BeforePrint(Cancel As Boolean)
Range("A2").Value = ExecuteExcel4Macro("Get.Document(50)")
Cancel = True
End Sub
Private Sub Workbook_BeforePrint(Cancel As Boolean)
If Date <> Range("A1") Then
Range("A1") = Date
Range("A2") = 0
End If
If Range("A2").Value < 21 Then
Range("A2").Value = Range("A2").Value + ExecuteExcel4Macro("Get.Document(50)")
Else
Cancel = True
Beenden = _
MsgBox("ZUVIEL PAPIER VERBRAUCHT GEHALTSKUERZUNG :(" & _
OK)
End If
End Sub
Ähnliche Themen
Formatierung vom Inhaltsverzeichnis in Word
DettennA 22.08.2007 - 96 Hits - 5 Antworten
Seitenzahlen in Exel
mäusken 04.09.2007 - 226 Hits - 1 Antwort
Word 2003, Automatisches- Inhaltsverzeichnis ich will keine Fusszeile
optimfish 14.02.2009 - 163 Hits - 14 Antworten
Zahlen genau untereinander
wuwei 27.02.2008 - 53 Hits - 6 Antworten
Inhaltsverzeichnis: Seitenzahl ein-/ausblenden
Urgent 01.03.2008 - 60 Hits - 1 Antwort
Hinweis
Diese Frage ist schon etwas älter, Sie können daher nicht mehr auf sie antworten. Sollte Ihre Frage noch nicht gelöst sein, stellen Sie einfach eine neue Frage im Forum..
Neue Einträge
