Gruppe
Allgemein
Problem
Der AutoFilter akzeptiert nur Teile von Zeichenfolgen, nicht von Zahlen. Kann man statt dem AutoFilter VBA einsetzen?
StandardModule: basMain
Sub NumberFilter()
Dim iRow As Integer
Dim sFilter As Integer
sFilter = Range("D1").Text
iRow = 2
Do Until IsEmpty(Cells(iRow, 1))
If InStr(Cells(iRow, 1).Text, sFilter) Then
Rows(iRow).Hidden = True
End If
iRow = iRow + 1
Loop
End Sub
Sub ResetRows()
Rows.Hidden = False
End Sub