Inhaltsverzeichniss automatisch erstellen mit Link
15.05.2008 06:06:00
Gerhard
Habe mit Hilfe dieses Forums mir ein Inhaltsverzeichnis meiner vorhanden Sheets erstellt, das wie folgt aussieht:
Sub Übersicht()
Dim wks As Worksheet
Dim i As Integer
Dim wb As Workbook
Dim ws As Worksheet
Set wb = ActiveWorkbook
Set wks = wb.Worksheets("01_Übersicht")
Worksheets("01_ÜBERSICHT").Select
Range("B11:G100").Select
Selection.ClearContents
A = 5
For Each ws In wb.Worksheets
If ws.Name wks.Name Then
wks.Cells(A, 2) = ws.Range("BN1")
wks.Hyperlinks.Add Anchor:=wks.Cells(A, 4), Address:="", SubAddress:= _
"'" & ws.Name & "'!a1", TextToDisplay:=">>>"
wks.Cells(A, 3) = ws.Range("BJ1")
wks.Cells(A, 5) = ws.Range("BK1")
wks.Cells(A, 6) = ws.Range("BL1")
wks.Cells(A, 7) = ws.Range("BM1")
A = A + 1
End If
Next ws
Range("A1").Select
End Sub
In Zelle BJ1 wird die "Art" des Sheets festgelegt. Ist es möglich, das nur ein Inhaltsverzeichnis generiert wird, aus den Blättern die den Namen "02 Standmenge" in Zelle BJ1 tragen und alle anderen unberücksichtigt bleiben? Weil sonst wird selbst das Inhaltsverzeichnis zu unübersichtlich, da es sich um ne ganze Menge Sheet handelt.
Hätte gerne die Beispieldatei hochgeladen, aber aufgrund der vielen Sheets werden 300kB weit überschritten.
Kann mir hierbei jemand helfen?
Gruß Gerhard