VBA-Fehler: konstanter Ausdruck erforderlich
21.04.2019 12:10:47
WalterK
Ich habe folgende Frage:
Diesen Code habe ich vor einiger Zeit von einem Helfer bekommen und er funktioniert auch ausgezeichnet.
Jetzt habe ich versucht die Zahlen 30, 6 und 180 aus Zellen des Blattes zu "füttern".
Dann kommt allerdings der Fehler "Konstanter Ausdruck erforderlich"
Wie komme ich hier weiter?
Hier noch der Code:
Sub rnd()
Dim varNumbers As Variant, lngOut(1 To 30, 1 To 6) As Long
Dim lngR As Long, lngC As Long, lngN As Long
Call randNumbers(varNumbers, 1, 180)
For lngR = 1 To 30
For lngC = 1 To 6
lngN = lngN + 1
lngOut(lngR, lngC) = varNumbers(lngN, 1)
Next
Next
Range("R41:W70") = lngOut
End Sub
Besten Dank, Servus WalterAnzeige