Excel und VBA: Formeln, Programmierung, Lösungen

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

    

Beiträge aus dem Excel-Forum zu den Themen Allgemein und Autofilter