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
|