Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
852to856
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
852to856
852to856
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Seitenanzahl pro Tabellenblatt

Seitenanzahl pro Tabellenblatt
16.03.2007 15:45:00
Hendryk
Hallo zusammen,
erstmal vielen Dank für eure Mithilfe, eine kleine Bitte hätte ich jedoch noch.
wie schaffe ich es, dass dieses Makro auf jedem Tabellenblatt ausgeführt wird und nicht nur im Aktiven.

Sub GetNumberOfPagesWithXLM()
range("AK3") = ExecuteExcel4Macro("Get.Document(50)")
End Sub

Viele liebe Grüße
Hendryk

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Seitenanzahl pro Tabellenblatt
16.03.2007 15:51:00
Peter
Hallo Hendryk,
schreib das in DieseArbeitsmappe

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
Range("AK3") = ExecuteExcel4Macro("Get.Document(50)")
End Sub
sowie du ein Tabellenblatt aktivierst (anklickst) wird die Seitenzahl eingefügt.
Gruß Peter
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige