Variable variabel werte zuweisen ;-)
27.12.2007 16:40:00
Franc
gibt es eine Möglichkeit folgendes zu tun?
Option Explicit
Sub test()
Dim z As Byte, wert1, wert2, wert3, wert4, wert5
For z = 1 To 5
"wert" & z = Int((6 * Rnd) + 1)
Next z
End Sub