Hallo Mr. K.,
vielen Dank für die schnelle Antwort!
Option Compare Text funktioniert super! Danke!
Zu deiner Frage, warum ich ScreenUpdating aus aber nicht wieder an schalte. Unwissenheit. Ich habe den Code so aus dem Internet gezogen und für mich angepasst. Wusste nicht was das bedeutet. Jetzt allerdings schon ;)
Zu der Msg.Box.... Ich habe den Code wie folgt geändert.
Private Sub CommandButton1_Click()
Dim x As Long
Application.ScreenUpdating = False
For x = 1 To Worksheets.Count
If (Worksheets(x).Name) = TextBox1 & " " & TextBox2 Then
Worksheets(x).Activate
Cells(1, 1).Select
Exit For
Next
Else
MsgBox ("Für " & UserForm1.TextBox1.Text & " " & UserForm1.TextBox2.Text & " ist kein Eintrag vorhanden. Bitte überprüfe die Eingabe und versuche es erneut.")
End If
Application.ScreenUpdating = True
Unload Me
End Sub
Das "Next" hatte ich bei meiner ersten Variante am Schluss stehen. Ergebnis: Eine schöne MsgBox-Endlos-Schleife....
So bekomme ich allerdings immer einen Fehler, Kannst du oder wer anders mir helfen?
@ Gast20517 auch dir vielen Dank für die schnelle Antwort!
|