Hallo Zusammen,
ich habe ein Problem mit Filterkriterien, die aus einem dynamischen Array kommen.
Zum Hintergrund:
Ich habe in Tabellenblatt1 in Spalte A verschiedene Zahlen/Buchstaben, beginnend ab Zeile 17 (Zeile 16 = Überschrift) stehen.
In Tabellenblatt2 stehen ebenfalls Zahlen/Buchstaben (beginnden ab Zeile 3), die in ein dynmaisches Array bisher erfolgreich eingelesen werden.
Hierzu der Code:
Dim m As Variant
Dim mZeile As Integer
Dim mSpalte As Integer
Dim Projektnummer As String
Dim AnzahlProjekte As Integer
Dim ErsteProjektnummer As Variant
Dim arr()
Dim size As Integer
Dim i As Integer
Dim g As Integer
'm ist die Zeile in Projektstatus, in der die Projektnummern gesucht werden sollen
m = 0
' Startzeile für das Suchen
mZeile = 3
'Zählen der Anzahl der Projekte (dient als maximal Wertals Abbruchkriterium)
AnzahlProjekte = Range("A3:A126").SpecialCells(xlCellTypeVisible).Count - 3
Debug.Print AnzahlProjekte
size = AnzahlProjekte - 1
ReDim Preserve arr(size)
sichtbareZelle = Range("A3:A126").SpecialCells(xlCellTypeVisible).Value
For i = 0 To size
arr(i) = Cells(i + 3, 1).Value
Next i
Nun zum Problem:
Die in diesem dynamischen Array hinterlegten Werte sollen als Filterkriterium in Tabellenblatt 1 dienen.
Ich komme allerdings nicht darauf, wie ich den Filter hierzu aktiviere, Folgendes habe ich bereits probiert:
Sheets("Tabellenblatt1").Select
Selection.AutoFilter Field:=1, Criteria1:=arr, Operator:=xlFilterValues
Wäre klasse, wenn mir jemand weiterhelfen könnte.
Vielen Dank dafür vorab.
ich habe ein Problem mit Filterkriterien, die aus einem dynamischen Array kommen.
Zum Hintergrund:
Ich habe in Tabellenblatt1 in Spalte A verschiedene Zahlen/Buchstaben, beginnend ab Zeile 17 (Zeile 16 = Überschrift) stehen.
In Tabellenblatt2 stehen ebenfalls Zahlen/Buchstaben (beginnden ab Zeile 3), die in ein dynmaisches Array bisher erfolgreich eingelesen werden.
Hierzu der Code:
Dim m As Variant
Dim mZeile As Integer
Dim mSpalte As Integer
Dim Projektnummer As String
Dim AnzahlProjekte As Integer
Dim ErsteProjektnummer As Variant
Dim arr()
Dim size As Integer
Dim i As Integer
Dim g As Integer
'm ist die Zeile in Projektstatus, in der die Projektnummern gesucht werden sollen
m = 0
' Startzeile für das Suchen
mZeile = 3
'Zählen der Anzahl der Projekte (dient als maximal Wertals Abbruchkriterium)
AnzahlProjekte = Range("A3:A126").SpecialCells(xlCellTypeVisible).Count - 3
Debug.Print AnzahlProjekte
size = AnzahlProjekte - 1
ReDim Preserve arr(size)
sichtbareZelle = Range("A3:A126").SpecialCells(xlCellTypeVisible).Value
For i = 0 To size
arr(i) = Cells(i + 3, 1).Value
Next i
Nun zum Problem:
Die in diesem dynamischen Array hinterlegten Werte sollen als Filterkriterium in Tabellenblatt 1 dienen.
Ich komme allerdings nicht darauf, wie ich den Filter hierzu aktiviere, Folgendes habe ich bereits probiert:
Sheets("Tabellenblatt1").Select
Selection.AutoFilter Field:=1, Criteria1:=arr, Operator:=xlFilterValues
Wäre klasse, wenn mir jemand weiterhelfen könnte.
Vielen Dank dafür vorab.
