Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
Filtern mit Filterkriterien aus dynamischen Array |
20.05.2018 16:40:48 |
Hady |
|
|
|
20.05.2018 20:10:10 |
AlterDresdner |
|
|
|
20.05.2018 21:48:53 |
Stefan Haderlein |
|
|
|
21.05.2018 11:37:48 |
Gast7777 |
|
|
|
21.05.2018 13:05:47 |
Hady |
|
|
|
21.05.2018 13:27:34 |
Gast7777 |
|
|
|
21.05.2018 13:31:50 |
Gast0815 |
|
|
|
21.05.2018 17:41:18 |
AlterDresdner |
|
|
Von:
Hady |
Datum:
20.05.2018 16:40:48 |
Views:
1417 |
Rating:
|
Antwort:
|
Thema:
Filtern mit Filterkriterien aus dynamischen Array |
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.
|
- Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
- Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
- Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
- Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
- Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei
Antworten auf Ihren Beitrag zu benachrichtigen
Bitte geben Sie ein aussagekräftiges Thema an.
Bitte geben Sie eine gültige Email Adresse ein!
- Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
- Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
- Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
- Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
- Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei
Antworten auf Ihren Beitrag zu benachrichtigen
Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
Filtern mit Filterkriterien aus dynamischen Array |
20.05.2018 16:40:48 |
Hady |
|
|
|
20.05.2018 20:10:10 |
AlterDresdner |
|
|
|
20.05.2018 21:48:53 |
Stefan Haderlein |
|
|
|
21.05.2018 11:37:48 |
Gast7777 |
|
|
|
21.05.2018 13:05:47 |
Hady |
|
|
|
21.05.2018 13:27:34 |
Gast7777 |
|
|
|
21.05.2018 13:31:50 |
Gast0815 |
|
|
|
21.05.2018 17:41:18 |
AlterDresdner |
|
|