|
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
|