Habe ein Problem & zwar:
Keine Zahlenfolgen werden gefiltert. Bitte um Hilfe (siehe Bild)
Sub Filter()
IF Range("B2") "" then Range("B3:B12").Autofilter Field:=1, _
Criteria1:="*" & Range("B2") & "*"
End Sub
Gruß DanielSub Filter()
Dim Auftragsnummer As Long
With ThisWorkbook.Sheets("Tabelle1")
If .Range("B2") "" Then
Auftragsnummer = .Range("B2").Value * 1000
With .Range("B3:B11")
.AutoFilter Field:=1, Criteria1:=">" & Auftragsnummer, _
Operator:=xlAnd, Criteria2:="
Gruß Werner