Zellen zufällig sortieren und kopieren
16.03.2013 16:03:02
Tom
Ich habe folgenden vba-Code gefunden:
Sub til()
Sheets("Tabelle1").Select
Range("a1").Clear
Dim ar_rng(), i
ar_rng = Range("A1:A33")
For i = 1 To 33
ar_rng(i, 1) = Cells(Int(Rnd() * 33 + 1), "E").Value
Next
[A1:A33] = ar_rng()
End Sub
Neben jeder Zelle in Spalte E befindet sich in Spalte F ein fest zugeordneter Wert. Dieser müsste gleichzeitig in Spalte B kopiert werden. Beispiel: in Zelle E12 steht "Eis", in Zelle F12 "Erdbeer". In Spalte A müsste dann in derselben Zeile (die zufällig ausgewählt wurde) "Eis" (Spalte A) und "Erbeer" (Spalte B)stehen.
Kann jemand den Code entsprechend ändern?