Makro Zufallszahlöen modifizieren
10.03.2015 16:52:54
erichm
habe im Archiv folgendes tolles Makro gefunden:
https://www.herber.de/forum/archiv/1000to1004/t1003045.htm
' **********************************************************************
' Modul: Tabelle1 Typ: Element der Mappe(Sheet, Workbook, ...)
' **********************************************************************
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 = 13 'Wieviel Elemente
Unten = 165 'Untergrenze
Oben = 495 '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 13 Werte im Array behalten
'Ausgewben
Range("A1").Resize(UBound(arr)) = WorksheetFunction.Transpose(arr)
End Sub
1. Es sollen die Werte in Spalten von links nach rechts geschrieben werden (derzeit von Zeile 1 nach unten).
2. Das Makro soll sich dann in Zeilen nach unten wiederholen (also beginnend Zelle A1, dann Zelle A2 usw.).
Besten Dank für eine Hilfe!
mfg