Zufallsauswahl - Code funktioniert nicht
22.09.2008 12:10:51
Mario
ich habe in Spalte A von Zeile 4 - 122 Namen und dazwischen Leerzellen stehen.
Nun möchte ich eine zufällig Auswahl treffen. Ich drücke die Zelle E1 so oft, bis die Namen alle aus Spalte A verschwunden sind. Sie sind dann von E2 bis E35 (je nach Namenanzahl).
Aber zwischendurch kommt immer wieder der Debugger in der fettgedruckten Zeile:
Option Explicit
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim sngI As Single, sngN As Single
Dim dblZz As Double, dblZs As Double
Dim arr(4 To 122, 1 To 1)
If Not Intersect(Target, Range("E1")) Is Nothing Then
For sngI = 4 To 122
For sngN = 1 To 1
arr(sngI, sngN) = Cells(sngI, sngN).Value
Next sngN
Next sngI
Randomize Timer
For sngI = 4 To 122
dblZs = Int(1 * Rnd + 1)
dblZz = Int(122 * Rnd + 1)
If arr(dblZz, dblZs) "" Then
Cells(Cells(Rows.Count, 5).End(xlUp).Row + 1, 5).Value = arr(dblZz, dblZs)
arr(dblZz, dblZs) = ""
Exit For
End If
Next
Range("A4:A122") = arr
Range("A3").Select
End If
End Sub
Was mache ich falsch? Und könnte man diesen Code auch mit nur einmal drücken versehen?
Vielen Dank im voraus
Mario