Ich will in einer Funktion ein Array erzeugen und das auch aus der Funktion zurückgeben. So sieht meine Funktion aus, aber die Funzt leider net...
Public
Function getShorts() As Variant
With DialogStundenNachweis.MitarbeiterList
Dim i As Integer
ReDim getShorts(80)
For i = 0 To .ListCount - 1
If .Selected(i) = True Then
getShorts(j) = .List(i, 2)
End If
Next i
End With
End Function
Danke!