Dim rowData As Long
rowData = ActiveSheet.Cells(ActiveSheet.rows.count, "A").End(xlUp).row
ReDim arr(1 To 6, 1 To rowData) As Variant
Oder einfach:
Dim data as Variant
data = ActiveSheet.Range("A6", ActiveSheet.Cells(ActiveSheet.Rows.Count, "A").End(xlUp)).Value
|