+- Office-Fragen.de (https://office-fragen.de)
+-- Forum: Microsoft Office (https://office-fragen.de/forum-1.html)
+--- Forum: Excel (https://office-fragen.de/forum-2.html)
+--- Thema: Suchen per textBox und CommandButton (/thread-28425.html)
Suchen per textBox und CommandButton - Jolinar7 - 01.11.2022
Hallo,
ich habe diverse Spalten und möchte in einer textbox eine Zahl eintragen, die dann mit dem CommandButton angezeigt wird (Cursor wechselt auf die Zelle).
Ich muss lediglich eine 2-stellige Nummer eingeben. Allerdings darf er dabei nur die Spalten B, F und J durchsuchen. In anderen Spalten sind auch Zahlen vorhanden, die er nicht mit beachten soll.
Mein erster Anlauf funktioniert nur bedingt, da alle Spalten durchsucht werden.
Private Sub CommandButton1_Click()
Dim s As String
On Error GoTo Fehler
s = TextBox1.Text
Cells.Find(What:=s, LookAt:=xlPart).Activate
Exit Sub
Fehler:
MsgBox "Suchbegriff '" & s & "' nicht gefunden !", 64, _
"Dezenter Hinweis für " & Application.UserName & ":"
End Sub
RE: Suchen per textBox und CommandButton - Flotter Feger - 02.11.2022
Hallo,
was willst du da jetzt wissen? Wie man Cells.Find gegen Range("B:B,F:F,J:J").Find austauscht?
Sabina