ich hoffe ihr könnt mir bei folgendem Problem helfen: Ich habe aktuell eine Tabelle die via VBA und Autofilter-Funktion nach einer variable gefiltert wird. Diese Variable kann entweder in Zeile 2,3 oder 4 gesucht werden das habe ich über eine Combobox in einem Userform erledigt.
Da ich das ganze etwas schneller machen wollte, habe ich nun die Tabelle in einem mehrdimensionalen Array abgebildet:
Option Explicit
Global varmyarray As Variant
Sub array_einlesen()
Dim x As Long
x = AnzahlZeilen(Worksheets("Gesamt"))
varmyarray = Sheets("gesamt").Range("A2:Q" & x).Value
End Sub
Function AnzahlZeilen(Blatt As Worksheet) As Long
AnzahlZeilen = WorksheetFunction.CountA(Blatt.Range("A:A"))
End Function
In einem Userform lasse ich dieses komplette Array in einer Listbox ausgeben, das klappt auch soweit. Nur möchte ich jetzt halt noch das ich z.B. in der 2. Spalte (hier steht eine Artikelnummer) alle Artikelnummern samt infos aus den anliegenden spalten filtere in ein separates Array schreibe. Dieses Array möchte ich dann in einer anderen Listbox ausgeben.Leider finde ich überall nur Anleitungen für eindimensionale Arrays. Kann man das dennoch irgendwie realisieren ?
Gruß
Dennis