Hilfe mit Random Teil 2
16.08.2006 07:49:11
Thorsten
Gestern wurde mir hier mit folgendem Code schon sehr geholfen.
Private Sub E6_Click()
Dim c As Integer
Randomize
c = CInt(9 * Rnd() + 1)
If Cells(17, c) = "" Then
Cells(17, c) = "Text"
GoTo ende
End If
ende:
End Sub
Ich hatte vor, dass zufällig in den Zelle A17-I17 geprüft wird, ob diese leer ist und wenn ja, sollte ein Text eingetragen werden. Funktioniert auch soweit. Das einzige Problem, was ich habe ist, dass, sollte die Zufallszahl eine volle Zelle treffen, ein weitere Mausklick nötig ist. Und das kann, sollte nur noch eine Zelle frei sein, zu einigen Klicks führen, bis die letzte Zelle gefunden wird. Kann man das irgendwie umgehen? Mit "else" vielleicht, dass wenn Zelle voll, automatisch weitergesucht wird (ohne klick). Ich weiß leider nicht wie ich das umsetzen soll...
Gruß Thorsten