Mehrdimensionales Array in meheren Spalten filtern
16.09.2016 13:43:23
Dennis
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
Leider finde ich überall nur Anleitungen für eindimensionale Arrays. Kann man das dennoch irgendwie realisieren ?
Gruß
Dennis