Dropdown Menue zum Sheets wechseln
28.10.2008 14:57:47
Peter
ich habe ein kleines Vorhaben: Ein DropDown Menue innerhalb der Sheets zur Sheetnavigation, dh.
A) Ich brauche in den Feldern A1, B1 auf jedem Tabellensheet ein Dropdown Menü.
B) Dieses Menü soll - wenn man es öffnet - alle vorhandenen Tabellensheets anzeigen.
C) Wenn man eines dieser Tabellensheets in dem DropDown Menü auswählt, landet man auf dem entsprechenden Sheet.
Bisher ist mein folgender Stand:
1) Ich habe eine DropDown Box (Formular) Namens "Dropdown1"
Diese Funktion soll die DD Box "füllen".
Sub ReadSheets()
Dim tmpSheet
Dim tmpSel
Dropdown1.Clear
For tmpSheet = 1 To Sheets.Count
Dropdown1.AddItem Sheets(tmpSheet).Name
If Sheets(tmpSheet).Name = ActiveSheet.Name Then tmpSel = tmpSheet
Next
Dropdown1.ListIndex = tmpSel
End Sub
Das funkioniert aber nicht, Grund: ich spreche die Dropdownbox falsch an. Erste Fehlermeldung in der Zeile
Dropdown1.Clear
2) Wenn ich in der Dropdownbox etwas auswähle, soll er den Sheet mit dem ausgewählten Namen öffnen
Sub SelectSheet()
Sheets(Dropdown1.List(Dropdown1.ListIndex)).Select
End Sub
Funktioniert aber auch nicht. Diese Funktion wollte ich mit der DDBox verbinden.
und Final wird noch folgendes für das ganze Workbook ausgeführt
3)
Private Sub Workbook_NewSheet(ByVal Sh As Object)
ReadSheets
End Sub
Private Sub Workbook_Open()
ReadSheets
End Sub
Das funktioniert schonmal ;)
-------------
Hat kann mir jemand mit einer glorreichen Idee weiterhelfen?