01.11.2022, 15:57
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
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