mein Inhaltsverzeichnis mit Seitenanzahl erzeugen
25.05.2005 13:32:29
erkoo
ich habe das folgende Makro mit dem ich einen Inhaltsverzeichnis als Hyperlink erzeuge.
Nun möchte ich in Spalte B die Seitenanzahl dazu angeben angeben.
Wie bekomme ich die Seitenanzahl der Tabellen die eingeblendet sind?
Ich habe dazu keine Idee.
Danke im Voraus!
Erko
Private Sub CommandButton1_Click() 'Sub MappenInhaltZusammenstellen() Dim Tabelle As Worksheet Dim i As Integer ActiveSheet.Name = "Inhaltsverzeichnis_neu" 'Inhaltsverzeichnis_neu 'Tabelle Cells(2, 1).Value = "Enthaltene Blätter als Hyperlinks" i = 3 For Each Tabelle In ActiveWorkbook.Worksheets If Tabelle.Name <> "Inhaltsverzeichnis_neu" Then Cells(i, 1).Value = Tabelle.Name Tabelle.Hyperlinks.Add Anchor:=Cells(i, 1), _ Address:="", SubAddress:=Tabelle.Name & _ "!A1", ScreenTip:="Hyperlink klicken", _ TextToDisplay:=Tabelle.Name Cells(i, 2).Value = Tabelle.Cells(1, 1).Value i = i + 1 End If Next Tabelle 'End Sub
End Sub