AutoFilter mehrere Kriterien ausfiltern

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Mein Makro sieht wie das in der Anleitung, bloß an meine Spalten angepasst und um eine Arbeitsblattkopie erweitert.

Sub Test()
Dim arr1, arr2
Dim Zaehler As Long
' Spalte welche zu filtern ist auswählen
Range("A1").Select
arr1 = Range(Selection, Selection.End(xlDown)).Value
ReDim arr2(1 To UBound(arr1, 1)) As String
For Zaehler = 2 To UBound(arr1)
Select Case arr1(Zaehler, 1)
Case "=7*", "=8*", "=9*"
Case Else
arr2(Zaehler) = CStr(arr1(Zaehler, 1))
End Select
Next
' Filtern nach Array und Bereich auswählen
Cells(1, 1).CurrentRegion.AutoFilter Field:=1, Criteria1:=arr2, Operator:=xlFilterValues
Cells(1, 1).CurrentRegion.Select
' Filterergbenis kopieren, Arbeitsblatt ertellen, Filterergebnis einfügen
Selection.Copy
Sheets.Add After:=ActiveSheet
ActiveSheet.Paste
End Sub

Leider funktioniert das Case "=7*" nicht. Liegt es vielleicht am Array?

dim arrFilter dim strFilter as string dim Wert '--- 1. zu filternde Werte in einem String sammeln for each wert in Cells(1, 1).CurrentRegion.Columns(1) if CStr(wert) like "[789]*" then strFilter = strFilter & Wert & vbLf next '--- 2. aus String das Filterarray erstellen arrFilter = split(mid(strFilter, Len(vbLF) + 1), vbLF) Cells(1, 1).CurrentRegion.AutoFilter Field:=1, Criteria1:=arrFilter, Operator:=xlFilterValues

Sub Test() Dim arr1, arr2 Dim Zaehler As Long ' Spalte welche zu filtern ist auswählen Range("A1").Select arr1 = Range(Selection, Selection.End(xlDown)).Value ReDim arr2(1 To UBound(arr1, 1)) As String For Zaehler = 2 To UBound(arr1) Select Case arr1(Zaehler, 1) Case "=7*", "=8*", "=9*" Case Else arr2(Zaehler) = CStr(arr1(Zaehler, 1)) End Select Next ' Filtern nach Array und Bereich auswählen Cells(1, 1).CurrentRegion.AutoFilter Field:=1, Criteria1:=arr2, Operator:=xlFilterValues Cells(1, 1).CurrentRegion.Select ' Filterergbenis kopieren, Arbeitsblatt ertellen, Filterergebnis einfügen Selection.Copy Sheets.Add After:=ActiveSheet ActiveSheet.Paste End Sub

Beliebteste Forumthreads (12 Monate)

	A	B
1		Filter: beginnt mit:
2	Kriterium1:	7
3	Kriterium2:	8
4	Kriterium3:	9
5
6
7	Wert	Hilfspalte
8	1605	0
9	787	1
10	1834	0
11	3	0
12	8497	1
13	359	0
14	957	1
15	788	1
16	598	0
17	1157	0

	A	B
1		Filter: beginnt mit:
2	Kriterium1:	7
3	Kriterium2:	8
4	Kriterium3:	9
5
6
7	Wert	Hilfspalte
8	1605	0
9	787	1
10	1834	0
11	3	0
12	8497	1
13	359	0
14	957	1
15	788	1
16	598	0
17	1157	0

AutoFilter mehrere Kriterien ausfiltern

12
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

304 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

AutoFilter mehrere Kriterien ausfiltern

12 Beiträge zum Forumthread Beiträge zu diesem Forumthread

304 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

12
Beiträge zum Forumthread

Beiträge zu diesem Forumthread