um eine Array zu befüllen verwende ich aktuell folgenden Code:
Function f_array()
Dim ARRAY_DAT As Variant ' Array mit den Daten '
Dim ARRAY_ZMAX As Long ' max. Anzahl Zeilen im Array '
Dim ARRAY_SMAX As Long ' max. Anzahl Spalten im Array '
' Maximale Anzahl Spalten im Array '
ARRAY_SMAX = 20
' Ermittlung Anzahl Zeilen die im Array eingelesen werden sollen '
tbl02.Activate
Range("A1").End(xlDown).Activate
ARRAY_ZMAX = ActiveCell.Row
Application.Goto Reference:=Range("A1"), Scroll:=True
' array mit den Daten aus tbl02 befüllen '
With tbl02
ARRAY_DAT = .Range(.Cells(1, 1), .Cells(ARRAY_ZMAX, ARRAY_SMAX))
End With
End Function
Nun möchte ich aber nur Datensätze im Array einlesen, die in tbl02 in Spalte 5 kein "x" haben.Wie geht das?
Danke für die Hilfe und Gruß vom Lutz