AutoFilterKriterien
15.07.2015 14:52:42
Samuel
habe das Forum schon länger durchsucht und leider nur ähnliche Beiträge gefunden, mit denen ich ein bisschen weitergekommen bin, aber aktuell nicht mehr weiter weiß. Meine Problemstellung ist die Folgende, ich würde gerne mitHilfe eines externen Arbeitsblattes mitHilfe eines Makros ein anderes Excel-Sheet öffnen und über Autofilter mir Kriterien auswählen, für die ich vom anderen Blatt die Daten kopiere. Ich hab all dies bewerkstelligt, jedoch nur mit vorherigen Festlegen des Filterkriteriums
ActiveSheet.UsedRange.AutoFilter Field:=4, Criteria1:="Kriterium"
Jetzt würde ich jedoch mir für das Blatt, das ich öffne, mir alle möglichen Kriterien in Spalte 4 anzeigen lassen und mir daraus eins auswählen, gerne auch nur über TextBox Eingabe. Mit Hilfe des Forums und der Excel Hilfe kam ich soweit
With ActiveSheet.AutoFilter
currentFiltRange = UsedRange
With .Filters
ReDim filterArray(1 To .Count, 1 To 3)
counterSize = .Count
For i = 1 To .Count
With .Item(i)
If .On Then
filterArray(i, 1) = .Criteria1
If .Operator Then
filterArray(i, 2) = .Operator
filterArray(i, 3) = .Criteria2
End If
End If
End With
Next i
End With
End With
Jedoch ist im filterArray keinerlei Information gespeichert. Mein primäres Problem ist herauszufinden, wie ich auf alle Einträge aus Spalte D zugreife und mir die zeigen lassen.
Vielen Dank schon einmal :)