1. Liebe Forumsgemeinde,

    aufgrund der Bestimmungen, die sich aus der DSGVO ergeben, müssten umfangreiche Anpassungen am Forum vorgenommen werden, die sich für uns nicht wirtschaftlich abbilden lassen. Daher haben wir uns entschlossen, das Forum in seiner aktuellen Form zu archivieren und online bereit zu stellen, jedoch keine Neuanmeldungen oder neuen Kommentare mehr zuzulassen. So ist sichergestellt, dass das gesammelte Wissen nicht verloren geht, und wir die Seite dennoch DSGVO-konform zur Verfügung stellen können.
    Dies wird in den nächsten Tagen umgesetzt.

    Ich danke allen, die sich in den letzten Jahren für Hilfesuchende und auch für das Forum selbst engagiert haben. Ich bin weiterhin für euch erreichbar unter tti(bei)pcwelt.de.
    Dismiss Notice

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

Discussion in 'Office-Programme' started by Dummijan, Mar 2, 2004.

Thread Status:
Not open for further replies.
  1. Dummijan

    Dummijan Byte

    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.
     
    Dummijan, Mar 2, 2004
    #1
  2. Dummijan

    Dummijan Byte

    Danke Tschoko, werde es gleich mal testen.
     
    Dummijan, Mar 2, 2004
    #2
  3. chancen

    chancen Kbyte

    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
     
    chancen, Mar 2, 2004
    #3
Thread Status:
Not open for further replies.

Share This Page