Schleife Endet nicht (.Find Method)

[snb]

Code:

Sub M_snb()
  With UsedRange.Columns(6)
    .AutoFilter 1, "sz"
    .Offset(1, 1).Resize(.Cells.Count - 1) = "sz"
    .AutoFilter
  End With
End Sub

>1 Mal Suchen = Filtern

[Gast 123]

Hallo

Toll, eiskalt von einem aufmerksamen Kollegen erwischt!!

@EarlFred   Danke, du warst sehr aufmerksam, ich baute mir wieder mal in der AW einen Flüchtigkeitsfehler ein.

Entweder vor Adr1 -If Not Find Is Nothing- , oder nach Set Find -If Find is Nothing- mit MsgBox und Exit Sub enden.
Passiert mir selten das ich das bei mir vergesse, aber hier war ich einfach zu eilig im Antwort geben.

mfg Gast 123