ich lasse mir alle Tabellenblätter in einer Liste im Blatt "Hauptmenü" anzeigen.
Dies geschieht folgendermaßen:
Sub liste1()
Dim wks As Worksheet
ActiveSheet.ListBox1.Clear
For Each wks In Worksheets
If wks.Name <> "Hauptmenue" Then
ActiveSheet.ListBox1.AddItem wks.Name
Application.Run "FillListSorted"
End If
Next wks
End Sub
Nun meine Frage:
Wie kann ich z.B. durch doppelklick auf eine Nummer in der Liste direkt auf dieses
Tabellenblatt gelangen.
Die Nummer markieren und danach auf einen Button drücken wäre auch möglich.
Danke für Eure Hilfe
Marco