ist sollte wissen wie ich in einer erstellten Userform mit Combobox und Ok-Button nach Eingabe des Tabellenblattnamens auf dieses Blatt wechseln kann.
Kann mir bitte jemand behilflich sein
Gruss
Uwe
Private Sub UserForm_Initialize()
'Combobox mit Blattnamen auffüllen
Dim ws As Worksheet
For Each ws In ActiveWorkbook.Sheets
ComboBox1.AddItem ws.Name
Next ws
End Sub
'OK-Button
Private Sub CommandButton1_Click()
If ComboBox1.Value = "" Then
MsgBox "Bitte Blatt auswählen!"
Exit Sub
End If
ActiveWorkbook.Worksheets(ComboBox1.Value).Activate
Unload Me
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