Hilfe mit Random Teil 3
16.08.2006 10:25:33
Thorsten
Hat mal ein Problem gelöst, taucht ein neues auf. Dank Sylvio, Uwe und Jürgen ist folgender Code funktionsfähig rausgekommen:
Private Sub E6_Click()
Dim c As Integer
Dim a As Integer
Randomize
weiter:
c = CInt(35 * Rnd() + 1)
If c > 19 And c <= 27 Then GoTo weiter
If Cells(17, c) = "" Then
Cells(17, c) = "Text" &c
GoTo ende
Else
For a = 1 To 36
If a > 19 And a <= 27 Then GoTo weiter2
If Cells(17, a) = "" Then GoTo weiter
weiter2:
Next a
End If
ende:
End Sub
Nun taucht der Wunsch hier auf, dass nicht nur die Zeile 17 sondern auch die Zeile 59 mit in die zufällige Suche mit aufgenommen werden soll. Konkret soll der Code noch durch A59-I59 erweitert werden. Ich weiß, es nervt langsam. :) Aber das überfordert mich als Newbie jetzt völlig...
Wenn da noch einer ne Idee hat, wäre ich sehr dankbar.
Grüße
Thorsten