Dim arr As Variant
arr = Tabelle2.ListObjects("Mitarbeiter").DataBodyRange.Value
Wenn du wirklich händisch eins erstellen willst:
'dimensioniert ein Array mit 3 Zeilen und 5 Spalten (die Werte können auch aus Variablen kommen)
'Dim arr As String()
ReDim arr(1 To 3, 1 To 5) As String
Dim i As Long
Dim j As Long
For i = LBound(arr, 1) to UBound(arr, 1)
For j = LBound(arr, 2) to UBound(arr, 2)
arr(i, j) = ...
Next
Next
|