Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1280to1284
1280to1284
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Filter

Forumthread: Filter

Filter
09.10.2012 09:18:22
Markus
Hallo,
ist es möglich mittels eines Makro's Daten zu filtern, mit 9 verschiedenen Kriterien.
enthält: 2911, 2913, 2921, 2922, 2923, 2924, 2925, 2926, 2932.
Danke jetzt schon für Antwort
Markus

Anzeige

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Filter
09.10.2012 10:52:01
{Boris}
Hi Markus,
in Deiner Excelversion nur via Hilfsspalte, in der Du je Zeile eine separate ODER-Abfrage einbaust. Für "enthält" dann zusätzlich mit FINDEN arbeiten:
=ODER(ISTZAHL(FINDEN({2911.2913.2921.2922.2923.2924.2925.2926.2932};A2)))
Anschließend diese Spalte nach WAHR filtern.
Ab xl2007 kannst Du die Suchwerte auch per VBA in ein Array einlesen und danach filtern - aber eben erst ab 2007.
VG, Boris

Anzeige
vielleicht mit Spezialfilter
09.10.2012 17:10:30
Tino
Hallo,
wenn Dein Usedrange (Benutzter Bereich) nach Spalten noch nicht aufgebraucht ist,
kannst mal diesen Code testen.
Sonst kann man es natürlich auch noch anders aufbauen.
Sub Filter_Daten()
Dim Col_FilterSpalte&
Col_FilterSpalte = 1 'Spalte angeben nach der gefiltert werden soll 
With Tabelle1.UsedRange 'Tabelle evtl. anpassen 
    With .Range(.Cells, .Columns(.Columns.Count).Offset(0, 1))
        .Cells(2, .Columns.Count).FormulaR1C1 = _
        "=OR(ISNUMBER(FIND({2911,2913,2921,2922,2923,2924,2925,2926,2932},RC" & Col_FilterSpalte & ")))"
        .AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:=.Cells(1, .Columns.Count).Resize(2), Unique:=False
        .Columns(.Columns.Count).EntireColumn.Delete
    End With
End With
End Sub
Gruß Tino
Anzeige
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige