Laufzeitfehler 9 und wirre Variablenwerte
Alex
Hier der relevante Teil des Codes:
dim x, k, l, y as integer
dim umweg, weg,wegvor as single
dim str(100,100) as single
dim arrstnum as range
x = 1
k = 3
Do
Do
If Weg wegVor = Weg
End If
y = x + 1
l = k + 1
umWeg = (str(x, y) + str(k, l) - str(x, l) - str(k, y))
For m = 1 To StMax
For n = 1 To StMax
If x = arrStNum(m) And k = arrStNum(n) And umWeg > 0 Then
arrStNum(m) = k
arrStNum(n) = x
Weg = str(arrStNum(1), arrStNum(2)) + str(arrStNum(2), arrStNum(3)) + str(arrStNum(3), arrStNum(4)) + str(arrStNum(4), arrStNum(5)) + str(arrStNum(5), arrStNum(6)) + str(arrStNum(6), arrStNum(1))
End If
Next n
Next m
x = x + 1
Loop Until x = 6
k = k + 1
Loop Until k = 6
Das Problem: durch die Schleifenbedingungen habe ich ja festgelegt, dass er x bis 6 loopen soll, oben habe ich definiert, dass x zu anfang 1 ist.
Er steigt allerdings jedes mal wieder mit einem Laufzeitfehler 9 aus und sagt, dass x 100 und y somit 101 ist und damit nicht in die str-Bedingungen passen. Woran kann das liegen? Ich bin mittlerweile mit den Nerven am Ende.
Danke für Hilfe
Alex