Gruppe
Allgemein
Bereich
Autofilter
Thema
Autofilter auch mit Ziffern von Zahlen
Problem
Der AutoFilter akzeptiert nur Teile von Zeichenfolgen, nicht von Zahlen. Kann man statt dem AutoFilter VBA einsetzen?
Lösung
Geben Sie den nachfolgenden Code in ein Standardmodul ein und weisen Sie ihn einer Schaltfläche zu.
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