Hallo Zusammen,
Ich habe den angehängten Code geschrieben, beim ausführen kommt aber ein Fehler: "Laufzeitfehler 9: Index ausserhalb des gültigen Bereichs!".
Ich hatte diesen Fehler noch nie und kann mir keinen Reim darauf machen wo mein Fehler liegt...
Ich würde mich sehr über eure Hilfe freuen!
Liebe Grüsse,
Anton
Sub InitialPopulation()
Dim rnd_nach As Integer
Dim rnd_von As Integer
rnd_nach = 2
rnd_von = 6
Dim vek_von(1 To 11, 1 To 1)
Dim OSM(1 To 11, 1 To 11)
For j = 1 To 11
For u = 1 To 11
OSM(u, j) = Range("T7:AD17").Cells(u, j).Value
Next u
Next j
For i = 1 To 11
vek_von(i, 1) = Range("T7:AD17").Cells(i, rnd_von).Value
Next i
If rnd_von < rnd_nach Then
For p = 11 To 1
If p <= rnd_von And p > rnd_nach Then
For k = 1 To 11
OSM(k, p) = OSM(k, p - 1)
Next k
End If
Next p
ElseIf rnd_von > rnd_nach Then
For q = 1 To 11
If q >= rnd_von And p < rnd_nach Then
For t = 1 To 11
OSM(t, q) = OSM(t, q + 1)
Next t
End If
Next q
End If
For r = 1 To 11
OSM(r, rnd_nach) = vek_von(r, 1)
Next r
For o = 1 To 11
For e = 1 To 11
Range("AF7:AO17").Cells(e, o).Value = OSM(e, o)
If Range("AF7:AO17").Cells(e, o).Value = Range("T7:AD17").Cells(e, o).Value Then
Cells.Interior.Color = RGB(255, 0, 0)
End If
Next e
Next o
End Sub
|