VBA: mit Array Zeilen ausblenden

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

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hi Christoph

Also... dein Gedanke mit dem Array bringt m.E. deshalb nichts, weil du nicht verschiedene Zeilen mittels Array gleichzeitig ein-/ausblenden kannst.

z.B.
Rows(Array(1, 3, 10)).EntireRow.Hidden = False
...hat bei mir nicht funktioniert.

Somit müsstest du also dein Array zum Abschluss trotzdem nochmals in einer Schlaufe durchlaufen und die Zeilen einzeln ein/ausblenden.

Die Idee mit der Formel würde zwar einiges bringen, nur fällt mir die Formel nicht ein. Bin nicht so der Profi auf dem Gebiet.

Anbei aber trotzdem ein neuer Vorschlag. Einerseits habe ich wie im ersten Beitrag geschrieben von Spalten dann Zeilen in Zeilen dann Spalten Durchlauf geändert. Ferner da ich davon ausgehe, dass du in der Regel mehr Zeilen ausblendest als einblendest den Code quasi in ein 'Negativ' geändert.

Schliesslich, habe ich dir trotzdem noch ein Array eingebaut, welches die relevanten Spalten enthält. Spalten die keinen Filter enthalten sollten ja nicht in jeder Zeile neu durchlaufen werden, deshalb werden nur die Spalten geprüft, die auch massgebend sind.

Gruss
Chris

Option Explicit


Sub test_filter()
Dim i As Integer
Dim j As Byte
Dim AnzSpalten As Byte, Arr As Variant
Application.ScreenUpdating = False
AnzSpalten = 21 - Application.WorksheetFunction.CountBlank(Range("B3:V3"))
ReDim Arr(AnzSpalten)
For j = 2 To 20
If Cells(3, j) <> "" Then
i = i + 1
Arr(i) = j
End If
Next j
Rows("4:2000").EntireRow.Hidden = True
For i = 4 To 2000
For j = 1 To AnzSpalten
If Cells(i, Arr(j)) <> Cells(3, Arr(j)) Then Exit For
Rows(i).EntireRow.Hidden = False
Next j
Next i
Application.ScreenUpdating = True
End Sub

Hallo Chris,
Vielen Dank für deinen Vorschlag.
Es ist allerdings noch ein Fehler drin. Es wird dabei nicht die Schnittmenge aus mehreren Filterkriterien (Bsp: Spalte 4 und 16) angezeigt, sondern alle Zeilen, die dem "größten" Kriterium entsprechen. (Also wenn durch das Kriterium in Spalte 4 z.B. 20 Zeilen eingeblendet werden und hiervon 5 Zeilen auch dem Kriterium in Spalte 16 entsprechen, dann bleiben alle 20 Zeilen sichtbar.) Dies ist bedingt durch den Durchlauf in:
For j = 1 To AnzSpalten
If Cells(i, Arr(j)) <> Cells(3, Arr(j)) Then Exit For
Rows(i).EntireRow.Hidden = False
Next j
da, jene Zeilen die dem ersten Kriterium entsprechen, eingeblendet werden. sollten diese dem zweiten Krit nicht entsprechen, dann blendet sie keiner mehr aus.

Schlußendlich komme ich beim Versuch, dies zu korrigieren, doch wieder darauf zurück, alle Zeilen einzublenden und die falschen auszublenden. In der Summe arbeitet diese Sub dann leider auch nicht schneller als zuvor.

Trotzdem - herzlichen Dank für deinen Einsatz
gruß
Christoph

Sub test_filter() Dim i As Integer Dim j As Byte Dim AnzSpalten As Byte, Arr As Variant Dim OK As Boolean Application.ScreenUpdating = False AnzSpalten = 21 - Application.WorksheetFunction.CountBlank(Range("B3:V3")) ReDim Arr(AnzSpalten) For j = 2 To 20 If Cells(3, j) <> "" Then i = i + 1 Arr(i) = j End If Next j Rows("4:2000").EntireRow.Hidden = True For i = 4 To 2000 OK = True For j = 1 To AnzSpalten If Cells(i, Arr(j)) <> Cells(3, Arr(j)) Then OK = False Exit For End If Next j If OK = True Then Rows(i).EntireRow.Hidden = False Next i Application.ScreenUpdating = True End Sub

Beliebteste Forumthreads (12 Monate)

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

321 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

VBA: mit Array Zeilen ausblenden

9 Beiträge zum Forumthread Beiträge zu diesem Forumthread

321 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread