Filter & Co

Computer: Software & Programmierung Office Software
1

Hallo Wissende,

ich habe eine lange Liste die in einer Spalte verschiedene Statusanzeigen hat.
Diese sind : e , b , k , v , f , u
Gibt es eine Möglichkeit per Filter alle mit e , b und u komplett in einem Schritt herauszufiltern?

Ich möchte nicht erst e, dann b und dann u einzeln filtern, sonder e, b und u in
einem einzigen Schritt herausfiltern. Die Benutzerdefinierte Funktion lässt ja nur
zwei Werte zu.

Wer Weiss Was ?

Fragende Grüße Peter

2

Hi Peter,
mit ner zweiten Hilfsspalte und nach der filtern?
=wenn(oder(F1=„e“;F1=„b“;F1=„u“);„x“;"")
Gruß
Reinhard

[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]

3

Hi Peter,
mit ner zweiten Hilfsspalte und nach der filtern?
=wenn(oder(F1=„e“;F1=„b“;F1=„u“);„x“;"")
Gruß
Reinhard

Hi Reinhard,

Erst einmal Dank für die schnelle Antwort.
Hab ich schon überlegt, aber die Liste hat ca. 26.000 Zeilen.
Bei sovielen zusätzlichen Formeln wird die Datei immer größer
und vom Server dauerts dann immer ewig bis sie geladen ist.

Gruß Peter

4

Hab ich schon überlegt, aber die Liste hat ca. 26.000 Zeilen.
Bei sovielen zusätzlichen Formeln wird die Datei immer größer
und vom Server dauerts dann immer ewig bis sie geladen ist.

Hi Peter,
dann per VBA mit den beiden Makros.
Gruß
Reinhard

Sub peter()
Dim Letzte As Long, n As Long
'Statusspalte ist in F
ActiveSheet.Rows.Hidden = False
Letzte = Range("A65536").End(xlUp).Row
For n = Letzte To 1 Step -1
 Select Case Cells(n, 6).Value
 Case "e", "b", "u"
 Case Else
 Rows(n).Hidden = True
 End Select
Next n
End Sub

Sub Einblenden()
ActiveSheet.Rows.Hidden = False
End Sub
5

Hallo Peter,

mit deinen gesuchten Werten hast du Glück

Wähle für das benutzerdefinierte Filter folgende Einstellungen:

Ist kleiner oder gleich e
oder
entspricht u

Dann werden alle Zeilen mit Eintrag b, e oder u herausgefiltert.

Gruss
Franz

[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]

6

Reinhard

Sub peter()
Dim Letzte As Long, n As Long
'Statusspalte ist in F
ActiveSheet.Rows.Hidden = False
Letzte = Range(„A65536“).End(xlUp).Row
For n = Letzte To 1 Step -1
Select Case Cells(n, 6).Value
Case „e“, „b“, „u“
Case Else
Rows(n).Hidden = True
End Select
Next n
End Sub

Sub Einblenden()
ActiveSheet.Rows.Hidden = False
End Sub

Hallo Reinhard,

entschuldige bitte die späte Antwort, aber es tanzte wie so oft der Bär. Erst einmal Danke für die schnelle Antwort.
Das Makro liest sich gut, aber funzt nicht so richtig.
Fällt es irgenwo in eine Endlosschleife oder muss ich länger warten?

Gruß Peter

7

entschuldige bitte die späte Antwort, aber es tanzte wie so
oft der Bär. Erst einmal Danke für die schnelle Antwort.
Das Makro liest sich gut, aber funzt nicht so richtig.
Fällt es irgenwo in eine Endlosschleife oder muss ich länger
warten?

Hi Peter,
ich hatte es getestet, lief problemlos bei mir.
Vielleicht am Anfang/Ende des Makros noch
Application.screenupdating erst auf false danach auf true setzen zum Beschleunigen.
Gruß
Reinhard