ich nutze die Random Number Generation Funktion aus dem Analyse Function AddIn in VBA. Hierbei habe ich das Problem, dass ich als Ausgabebereich nur Zellen einer Excel-Datei angeben kann. Da ich aber sehr viele Zufallszahlen erzeugen muß, würde ich diese lieber direkt in VBA in eine Feld-Variable schreiben. Dies funktioniert leider bisher nicht. Vielleicht hat ja einer oder eine von euch eine Idee.
Anbei das gekürzte VBA Programm:
Sub Macro2()
Dim h, s
h = 14
s = 20
ReDim Ausgabefeld(1 To s, 1 To h)
Application.ScreenUpdating = False
Application.Calculation = xlCalculationAutomatic
'##############################################
'
' 2. Erzeugung spezifischer Zufallszahlen
'
'###############################################
' Beschreibung der Random Number Generater function
'Test = Application.Run("ATPVBAEN.XLA!Random", Ausgabebereich _
' , Anz. Var., Anz. Zufallszahlen, Art der Verteilungsfkt. _
' , Startparameter , 1.Kennwert der Verteilungsfkt. _
' , 2. Kennwert der Verteilungsfkt.)
For x = 1 To h
Mean = Cells( 5, 1 + x)
Standardabw = Cells( 6, 1 + x)
Test = Application.Run("ATPVBAEN.XLA!Random" _
, Worksheets("Sheet1").Cells( 10, 1 + x) _
, 1, s, 2, 1, Mean, Standardabw)
'Version m. Ausgabe in Feldvar. "Ausgabefeld" funktioniert nicht
' Test = Application.Run("ATPVBAEN.XLA!Random", Ausgabefeld(1, x) _
' , 1, s, 2, 1, 3, 0.5)
Next x
Application.ScreenUpdating = True
Application.Calculation = xlCalculationAutomatic
End Sub