Supportnet / Forum / Tabellenkalkulation
Seitenzahlen im Inhaltsverzeichnis automatisieren
Frage
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...
Antwort 1 von gast123
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