auf einem bestimmten Tabellenblatt stehen in Spalte A Zeile 1- i (i als letzten Eintrag ermittelt) die Bezeichnungen aller Tabellenblätter in dieser Mappe. Ich möchte nun eine Userform, die eine Combobox enthält, wobei die Einträge in der Combobox die Bezeichnungen der Tabellenblätter als Auswahl enthält. Da die Anzahl der einträge bei unterschiedlcihen Excel-Mappen differiert, das Ganze eben dynamisch, damit man das nicht imemr wieder manuell einstellen muss.
Hintergrund ist folgender. Wenn nun die Combobox geändert wird solte das entsprechende Tabellenblatt/Diagramm aufgehen.
i (i als letzten Eintrag ermittelt) die Bezeichnungen aller
Tabellenblätter in dieser Mappe. Ich möchte nun eine Userform,
die eine Combobox enthält, wobei die Einträge in der Combobox
die Bezeichnungen der Tabellenblätter als Auswahl enthält. Da
Hintergrund ist folgender. Wenn nun die Combobox geändert wird
solte das entsprechende Tabellenblatt/Diagramm aufgehen.
Hi Slam,
so vielleicht:
Option Explicit
Public M As Boolean
'
Private Sub UserForm\_Initialize()
Dim wks As Worksheet
Me.Caption = "Blattauswahl"
Application.EnableEvents = False
M = True
ComboBox1.Value = "Bitte Blatt auswählen ------\>"
M = False
For Each wks In Worksheets
ComboBox1.AddItem wks.Name
Next wks
End Sub
'
Private Sub ComboBox1\_Change()
If M = True Then Exit Sub
On Error GoTo Ende:
Worksheets(ComboBox1.Value).Activate
Ende:
If Err.Number 0 Then MsgBox "Fehler"
End Sub