Office-Fragen.de

Normale Version: Suchen per textBox und CommandButton
Sie sehen gerade eine vereinfachte Darstellung unserer Inhalte. Normale Ansicht mit richtiger Formatierung.
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
Hallo,

was willst du da jetzt wissen? Wie man Cells.Find gegen Range("B:B,F:F,J:J").Find austauscht?

Sabina