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
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen