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