Problem mit Fehlermeldug Objekt erforderlich

Sub Zufall_24_25_Variation()
Dim arB(1 To 24, 1 To 1) As Long, arE(1 To 25, 1 To 1) As Long
Dim ff As Double, m1 As Long, m2 As Long, ii As Long
Const mSoll As Integer = 35
Randomize Timer
ff = (UBound(arB) + UBound(arE)) / mSoll
Do
m1 = 0
For ii = 1 To UBound(arB)
arB(ii, 1) = -(ff * Rnd() > 0.5)
m1 = m1 + arB(ii, 1)
Next ii
m2 = 0
For ii = 1 To UBound(arE)
arE(ii, 1) = -(ff * Rnd() > 0.5)
m2 = m2 + arE(ii, 1)
Next ii
Loop Until m1 + m2 = mSoll
KonfigurationI.Cells(6, 2).Resize(UBound(arB)) = arB
KonfigurationI.Cells(6, 14).Resize(UBound(arE)) = arE
End Sub