Registriert seit: 29.09.2015
Version(en): 2030,5
24.04.2024, 19:58
(Dieser Beitrag wurde zuletzt bearbeitet: 24.04.2024, 20:01 von 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
Registriert seit: 12.03.2016
Version(en): Excel 2003
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