Hallo,

ich habe in Excel eine Userform erstellt, auf der sich zwei TextBoxen befinden und zwei Button. Über die Userform (Inhalt der TextBoxen) soll ein bestimmtes Tabellenblatt gesucht und angezeigt werden. Das habe ich mit dem u.a. Code schonmal geschafft. Allerdings möchte ich gerne, dass er die Groß- und Kleinschreibung bei der Suche ignoriert und wenn kein Eintrag vorhanden ist, eine MsgBox "Kein Eintrag vorhanden...." anzeigt und die Userform geöffnet lässt. Kann mir jemand sagen, wie ich das in meinen Code einbauen kann? Vielen Dank schonmal!

TextBox1 = Vorname; TextBox2 = Nachname

Button1 = Suchen; Button2 = Abbrechen

Code:

Private Sub CommandButton1_Click()

Dim x As Long

Application.ScreenUpdating = False

'MsgBox ("Für " & UserForm1.TextBox1.Text & " " & UserForm1.TextBox2.Text & " ist kein Eintrag vorhanden. Bitte überprüfe die Eingabe und versuche es erneut.")

For x = 1 To Worksheets.Count

If (Worksheets(x).Name) = TextBox1 & " " & TextBox2 Then

Worksheets(x).Activate

Cells(1, 1).Select

Exit For

End If

Next

Unload Me

End Sub