Nur bestimmte Tabellenblätter via Dropdown wählen
18.12.2016 13:59:19
Peter
Ich habe eine Datei mit vielen Tabellen, nun soll in der Tabelle "Dateneingabe" ein Dropdown zur Verfügung gestellt werden, mit dem bestimmte Tabellenblätter angewählt werden können. Z.B. Tabelle 5, Tabelle 10 und Tabelle 30. Wird z.B. mit einem Doppelklick auf eines dieser Tabellenblätter geklickt (Auswahl des Kombinationsfelds), dann soll in das entsprechende Tabellenblatt gesprungen, res. das Tabellenblatt aktiviert werden.
Ich habe im Netz eine Lösung mit einer Userform (Combofeld mit zwei Buttons, ok und Abbrechen) gefunden. Dabei werden jedoch alle Tabellenblätter der Mappe angezeigt und nicht nur bestimmte, auch muss das ausgewählte Tabellenblatt dann mit den "OK" Button aktiviert werden.
Anbei die Lösung mit der Userform:
Option Explicit
Private Sub CommandButton1_Click()
Worksheets(ComboBox1.Text).Activate
Unload Me
End Sub
Private Sub CommandButton2_Click()
Unload Me
End Sub
Private Sub UserForm_Activate()
Dim ws As Worksheet
For Each ws In Worksheets
ComboBox1.AddItem ws.Name
Next ws
End Sub
Wie müsste ein Script aussehen, mit einem Combofeld in der Tabelle, und nur mit bestimmten Tabellen zur Auswahl, und die Auswahl (Tabelle) mit einem Doppelklick wählbar, resp. die gewünscht Tabelle wird dann aktiviert?
Danke.
Viele Grüsse,
Peter