Hyperlinks aus ListBox

Computer: Software & Programmierung Visual Basic
#1

Hallo Leute,
Skaletti meldet sich mal wieder im „wer-weiss-was“ Forum.
Meine Frage ist:
Kann man Hyperlinks,z.B. Inhaltsverzeichnis Arbeitsmappe, aus
einer ListBox aufrufen die in einer UserForm ist?
Das Inhaltsverzeichnis ist durch ein Makro in ein neues Tabellenblatt
angelegt worden.(Excel 2000)
Soviel ich weiss ist in einer ListBox nur Text.
Makro:

Sub MappenInhaltZusammenstellen()
Dim Tabelle As Worksheet
Dim i As Integer
Worksheets.Add.Move before:=Worksheets(1)
ActiveSheet.Name = "Inhalt"
Cells(2, 2).Value = "Enthaltene Blätter"
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ß Skaletti!

#2

Hallo Skaletti,

Kann man Hyperlinks,z.B. Inhaltsverzeichnis Arbeitsmappe, aus
einer ListBox aufrufen die in einer UserForm ist?

k.A. Probiere es so:

Private Sub ListBox1_Change()
Application.Goto Reference:=Worksheets(ListBox1.Text).Range(„A1“), Scroll:=True
End Sub

Private Sub UserForm_Initialize()
ListBox1.List = Array(„Tabelle1“, „Tabelle2“, „tabelle3“)
End Sub

Gruß
Reinhard

#3

Hallo Reinhard,
das funzt perfekt.
Vielen Dank für deine schnelle Hilfe.

Gruß Skaletti!