Makro für ein Listing von Exel-Arbeitsblätter

Dieses Thema im Forum "Office-Programme" wurde erstellt von Dummijan, 2. März 2004.

Status des Themas:
Es sind keine weiteren Antworten möglich.
  1. Dummijan

    Dummijan Byte

    Registriert seit:
    29. Februar 2004
    Beiträge:
    9
    Hallo
    Ich suche ein Makro, welches in einem neuen Arbeitsblatt einer Exel-Tabelle (Exel 2002), ein Listing aller in der Tabellele enthaltenden Arbeitsblätter, ausführt. Am besten mit einem Hyperlink. Praktisch ein Inhaltsverzeichniss der Blätter!
    Ein Makro zum Sortieren von Arbeitsblättern, habe ich im Forum schon gefunden.
     
  2. Dummijan

    Dummijan Byte

    Registriert seit:
    29. Februar 2004
    Beiträge:
    9
    Danke Tschoko, werde es gleich mal testen.
     
  3. chancen

    chancen Kbyte

    Registriert seit:
    3. Juli 2001
    Beiträge:
    203
    Hallo Dummijan,
    mit nachstehendem Makro werden Sie geholfen.
    Getestet in Excel 97-XP

    Sub MappenInhaltZusammenstellen()
    Dim Tabelle As Worksheet
    Dim i As Integer
    Worksheets.Add.Move before:=Worksheets(1)
    ActiveSheet.Name = "Inhalt"
    Cells(2, 2).Value = "Enthaltene Blaetter"
    i = 3
    For Each Tabelle In ActiveWorkbook.Worksheets
    If Tabelle.Name <> "Inhalt" Then
    Cells(i, 2).Value = Tabelle.Name
    Tabelle.Hyperlinks.Add Anchor:=Cells(i, 2), _
    Address:="", SubAddress:= Tabelle.Name & _
    "!A1", ScreenTip:="Hyperlink klicken", _
    TextToDisplay:=Tabelle.Name
    i = i + 1
    End If
    Next Tabelle
    End Sub

    Gruß Tschoko
     
Status des Themas:
Es sind keine weiteren Antworten möglich.

Diese Seite empfehlen