Inhaltsverzeichnis
Erstellen Sie einen Hyperlink-Index aller Arbeitsblätter in der Arbeitsmappe
Nehmen wir das Makro zum Auflisten aller Blätter in einer Arbeitsmappe noch einen Schritt weiter und erstellen Sie ein Hyperlink-Menü für jedes Blatt in einer Arbeitsmappe. Dies ist eine große Zeitersparnis für jemanden, der viele Blätter hat und versucht, ein Menü mit Hyperlinks zu jedem manuell zu erstellen.
Um das Makro zu verwenden, ersetzen Sie einfach das Wort Sheet1 (es erscheint zweimal) im Code durch den Namen der Registerkarte, auf der Sie die Ergebnisse erhalten möchten. Stellen Sie sicher, dass auf der Registerkarte Ausgabe keine wichtigen Informationen vorhanden sind, da die Daten vor dem Schreiben gelöscht werden. Nachdem das Makro ausgeführt wurde, wird eine Liste jedes Blatts mit einem Hyperlink zu jedem Blatt erstellt.
1234567891011121314151617181920 | Unter ListSheets()Dim ws als ArbeitsblattDim x As Integerx = 1Sheets("Sheet1").Range("A:A").ClearFür jedes ws in ArbeitsblätternSheets("Sheet1").Cells(x, 1).SelectActiveSheet.Hyperlinks.Add _Anker:=Auswahl, Adresse:="", Unteradresse:= _ws.Name & "!A1", TextToDisplay:=ws.Namex = x + 1Nächstes wsEnd Sub |