Lisbox Tabellen einlesen + Hyperlink
14.08.2018 10:21:40
Mentalist
Ich hoffe ich habe einen Hafen gefunden bei dem ich Hilfe bekomme!
Wie beschreibe ich das Problem....
ich habe eine Excel Datei.
Die Datei hat ca 15 Worksheets.
Beginnend mit dem Worksheet "Grunddaten"
Danach habe ich Worksheets mit Monaten. ("August 18", " September 18" usw.)
In dem Worksheet "Grunddaten" habe ich eine ListBox eingefügt diese soll alle bestehenden Worksheets auslesen und dort einbinden. Zusätzlich soll man per Mausklick auf diese Seiten springen. Leider bekomme ich das nicht hin.
Ich habe schon ein paar Sachen getestet. Leider funktioniert es nicht.
Mein alter Code :
' Befüllt die ListBox
Private Sub UserForm_Initialize()
Dim sht As Worksheet
For Each sht In ActiveWorkbook.Worksheets
ListBox1.AddItem sht.Name
Next sht
End Sub
' Setzt die Einträge in der ListBox als Hyperlink
Private Sub ListBox1_Click()
Sheets(ListBox1.ListIndex + 1).Activate
End Sub
Mfg
Anzeige