Supportnet / Forum / Tabellenkalkulation
Listbox-Makro erweitern
Frage
Hallo,
wer kann helfen?
Habe mir aus einem Buch folgendes Makro in meine Excel-Datei übernomen (jede Mappe hat so ein Listfeld):
Private Sub ListBox1_GotFocus()
Dim sh As Object
ListBox1.Clear
For Each sh In ActiveWorkbook.Sheets
ListBox1.AddItem sh.Name
Next sh
End Sub
Private Sub Listbox1_Click()
Sheets(ListBox1.Text).Activate
End Sub
Dieses Makro ermöglicht mit die Auswahl der Tabellenblätter per Listbox. Das funktioniert prima. Leider ist diese Listbox beim starten der Datei "leer" und wenn ich ein entsprechendes Blatt auswähle und mit "Klick" bestätige (springt er zum entsprechenden Blatt - ist ja so gewollt) in der Listbox bleibt dann aber der Name des gewählten Tabellenblatts stehen.
Ich möchte aber, das immer der Name des aktiven Blattes drin steht.
Geht das irgendwie zu machen???
Vielen Dank und einen schönen Wochenstart wünscht Euch
Mola!