Zufallsauswahl
27.02.2018 13:01:39
Pusterhofer
ich habe vor einiger Zeit einen Code von User Onur erhalten. Das Programm liest aus einer Liste 15 mal 4 zufällige Koordinatenpunkte aus, die gewisse Abstand zueinander einhalten sollen. Jetzt hab ich versucht, die Anzahl von 4 auf 6 zu erhöhen aber das klappt nicht. Vl hat jemand eine Idee wieso das so ist?
So läuft der Code:
Sub Zufall()
Dim anz, ze, x(4), y(4), z(4), zeile(4), found, zu, i, XMin, YMin, ZMin, k, a
XMin = 0.4 'MindestAbstand X
YMin = 0.4 'MindestAbstand Y
ZMin = 0.4 'MindestAbstand Z
anz = 648
k = 659
For a = 1 To 15 'Anzahl an zufälligen Tests
Randomize Timer
zu = Int(Rnd(Timer) * anz + 2)
zeile(1) = zu
x(1) = Cells(zu, 3)
y(1) = Cells(zu, 4)
z(1) = Cells(zu, 5)
ze = 2
While ze
Und so leider nicht!?:
Sub Zufall()
Dim anz, ze, x(6), y(6), z(6), zeile(6), found, zu, i, XMin, YMin, ZMin, k, a
XMin = 0.4 'MindestAbstand X
YMin = 0.4 'MindestAbstand Y
ZMin = 0.4 'MindestAbstand Z
anz = 648
k = 659
For a = 1 To 15 'Anzahl an zufälligen Tests
Randomize Timer
zu = Int(Rnd(Timer) * anz + 2)
zeile(1) = zu
x(1) = Cells(zu, 3)
y(1) = Cells(zu, 4)
z(1) = Cells(zu, 5)
ze = 2
While ze