Links im Makro
18.05.2005 09:54:19
Andre
Habe folgendes Makro (Dank an Bavariabob!):
Sub ListSheets()
Dim a
ActiveWorkbook.Worksheets.Add.Name = "Übersicht"
a = 1
For Each Sheet In ActiveWorkbook.Worksheets
Sheets("Übersicht").Cells(a, 1).Value = Sheet.Name
a = a + 1
Next
End Sub
Hierzu möchte ich nun die Sheet-Namen verlinkt haben, also im Grunde ein verlinktes Inhaltsverzeichnis meiner Excel-Arbeitsmappe erstellen.
Vielen Dank schon mal im Voraus!
Andre