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