kann ich über eine Userform Combobox mir die Registerblatten anzeigen lassen, und wenn möglich auch ansteuern und öffnen? Hat jemand einen Vorschlag um dieses umzusetzen.
Danke
Ralle
Private Sub UserForm_Activate()
Dim wksTab As Worksheet
For Each wksTab In Worksheets
ComboBox1.AddItem wksTab.Name
Next wksTab
End Sub
Private Sub ComboBox1_Change()
Worksheets(ComboBox1.Value).Activate
End Sub
For Each wksTab In Worksheets
If wksTab.Name "Tabelle1" Then ComboBox1.AddItem wksTab.Name
Next wksTab
Private Sub CommandButton1_Click()
Dim wksTab As Worksheet
Dim blnVorhanden As Boolean
Dim arrTabs()
If TextBox1 "" Then
For Each wksTab In Worksheets
If wksTab.Name = TextBox1 Then
blnVorhanden = True
Exit For
End If
Next wksTab
If blnVorhanden Then
MsgBox "Tabelle schon vorhanden"
Else
With Worksheets.Add
.Name = TextBox1.Value
.Move after:=Worksheets(Worksheets.Count)
End With
ComboBox1.Clear
UserForm_Activate
End If
Else
MsgBox "Bitte einen Tabellennamen eingeben"
End If
End Sub