Hallo zusammen,

nach langer Suche im Internet bin ich leider nicht fündig geworden.
Ich möchte, dass ein Wert (strFind) in Spalte B von oben nach durchsucht wird. Beim ersten Treffer, soll die Zeile markiert werden. Alle weiteren Zeilen (im Anschluss) sollen nach unten markiert und gelöscht werden.

Folgender Code wird fehlerfrei durchgeführt, leider wird dabei das ganze Arbeitsblatt durchsucht und nicht nur Spalte B.
Wie kann ich den u.a. Code ändern, so dass nur die Spalte B durchsucht wird?

    Dim ws As Worksheet
    Dim rng As Range
    Dim strFind As String
        

    
    strFind = InputBox("Datum im Format JJJJ-MM-TT eingeben: --> Das eingegebene Datum muss im Feld enthalten sein!")
        
        If strFind = "" Then
            Exit Sub
        Else
        
    

            For Each ws In Worksheets
                Set rng = ws.Cells(2).Find(strFind, LookAt:=xlPart)
        If Not rng Is Nothing Then
                ws.Rows(rng.Row).Select
                Range(Selection, Selection.End(xlDown)).Select
                Selection.Delete Shift:=xlUp

            Else
                    Set rng = ws.Cells.FindNext(After:=ActiveCell)
            End If

        Next ws
        End If