Wie kann ich Zellen in ein Array einlesen.
Zum Beispiel:
Zelle A1 : A5 In Array mit Variable Wert As Variant
Danke
Sub testarray()
Dim wert, i As Integer, j As Integer
wert = Range("A1:A5")
For i = 1 To UBound(wert, 2)'Spalten im Array
For j = 1 To UBound(wert, 1)'Zeilen im Array
Cells(j, i + 3) = wert(j, i)
Next
Next
End Sub