VBA: mit Array Zeilen ausblenden
23.09.2003 16:16:10
Christoph
ich "bastel" grade an einem Filter. Zeilen, die nicht dem Kriterium in Cells(3, j) entsprechen, werden ausgeblendet.
Sicher, mit dem Autofilter geht das ganze auch, aber so wie ich diese Funktionalität einsetzten will, komme ich mit dem Autofilter nicht parat. Der untenstehende Code funktioniert fehlerfrei, aber etwas langsam. Daher stelle ich mir vor, statt für 20 Spalte jeweils 2000 Zellen abzufragen, hier Arrays einzusezten. Was Datenfelder betrifft, stecke ich allerdings noch in den Kinderschuhen.
hat jemand einen Ansatz für dieses Problem?
ich bin für jede Hilfe dankbar.
Grüße - und macht weiter so!
Christoph
Sub test_filter()
Dim i As Integer
Dim j As Integer
Application.ScreenUpdating = False
Rows("4:2000").EntireRow.Hidden = False
For j = 2 To 20
If Cells(3, j).Value <> "" Then
For i = 4 To 2000
If Cells(i, j).Value <> Cells(3, j).Value Then
Cells(i, j).EntireRow.Hidden = True
End If
Next i
End If
Next j
Application.ScreenUpdating = True
End Sub