VBA - Zeile mit Wert ausgeben lassen

[Korain]

Hallo zusammen,

ich komme aktuell nicht weiter.
Ich suche einen Wert (immer Zahlen) in einer bestimmten Range, den Wert selbst finde ich auch, würde aber gerne die Zeile ermitteln.

Code:

    Dim findRange As Range
    Dim foundRng As Range
    Set ws = Sheets("Tabelle1")
    Set findrange = ws.Range("A7:A9837")
    Set foundRng = findrange.Find(TextBox18.Value)

Also ich kann zumindest mit einer If-Abfrage überprüfen, ob der Wert gefunden wurde. Aber bekomme es nicht hin, dass er mir die Zeile ausgibt.

Beste Grüße

[RPP63]

Moin!
foundrange.row

Allerdings solltest Du beachten, dass die Range.Find-Methode (optionale) Parameter hat, die intern auf den letzten benutzen Wert gespeichert werden.
Siehe die VBA-Hilfe:

Die Einstellungen für LookIn, LookAt, SearchOrder und MatchByte werden gespeichert, sobald Sie diese Methode verwenden. Wenn Sie keine Werte für diese Argumente angeben, werden das nächste Mal, wenn Sie die Methode aufrufen, die gespeicherten Werte verwendet.

Zumindest der zweite ist sehr wichtig!

Gruß Ralf

---

Und noch ein Zusatz:
Wenn Du nur in einer Spalte suchst, kannst Du eher Worsheetfunction.Match nehmen.
Das gibt Dir direkt die Zeile zurück.
https://docs.microsoft.com/de-de/office/...6rd%3Dtrue