ich habe ein Userform Listenfeld in welchem ich alle Excelsheets des Workbooks aufgelistet habe
Nun möchte ich die einzelnen Sheets anwählen und öffnen können.
Weiß leider nicht wie. Kann mir hier jemand helfen?
Vielen Dank
Marco
Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
Dim p As String
For i = 0 To ListBox1.ListCount - 1
If ListBox1.Selected(i) Then
p = ListBox1.List(i)
End If
Next i
'p = Range("A11").Value
ActiveWorkbook.FollowHyperlink Address:=p, NewWindow:=True
End Sub
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen