Makro Zufallszahlen
17.03.2009 18:47:55
WolfgangN
ich habe ein Makro gefunden, welches mir Zufallszahlen in eine Spalte schreibt. Dies funktioniert auch.
Jetzt wollte ich das Makro so umbauen, dass es mir verschiedene Zufallszahlen in einer Zeile schreibt, leider wird nur die erste Zahl mehrmals in die Zeile geschrieben, also immer die gleiche Zahl.
Was muss im Makro noch geändert werden, dass verschiedene Zahlen in die Zeile geschrieben werden?
Vielen Dank und Gruß
Wolfgang
Option Explicit
Public Sub geht()
Dim arr() As Variant
Dim L As Long
Dim I As Long
Dim tmp As Variant
Dim V As Long
Dim Z As Long
Dim Oben As Long
Dim Unten As Long
Dim W As Long
W = 5 'Wieviel Elemente
Unten = 1 'Untergrenze
Oben = 8 'Obergrenze
ReDim arr(Oben - Unten)
For L = Unten To Oben 'Array mit Werten füllen
arr(V) = L
V = V + 1
Next
Randomize
For I = 0 To UBound(arr) 'Array mischen
Z = Int(UBound(arr) * Rnd)
tmp = arr(Z)
arr(Z) = arr(I)
arr(I) = tmp
Next
ReDim Preserve arr(W) 'Die ersten 5 Werte im Array behalten
'schreibt immer die gleiche Zahl in die Zeile,
Range("A1").Resize(, UBound(arr)) = WorksheetFunction.Transpose(arr)
'schreibt korrekt verschiedene Zahlen in die Spalte,
Range("A1").Resize(UBound(arr)) = WorksheetFunction.Transpose(arr)
End Sub