Hi
Ich bin Anfänger was makros angeht aber ich habe viel probiert und versucht aber bis jetzt zu kein vernüftigen Ergebniss gekommen.
Sub Zufallszahlen()
Dim DatR, maxAnz, maxZahl, Zahl
maxAnz = 3 'Anzahl einzelner Zahlen
maxZahl = 9999999 'Größte Zahl
DatR = 1 'Anzahl Datenreihen
For d = 1 To DatR
For i = 0 To maxAnz
neu:
Randomize ' Zufallszahlengenerator initialisieren.
Zahl = Int((maxZahl * Rnd) + 1)
'Kontrolle ob doppelte vorhanden
For x = 1 To i
If Zahl = Cells(x, d * 1) Then GoTo neu 'falls doppelt
Next x
Cells(x, d * 1) = Zahl
Next i
Next d
End Sub
immer 4 neue zahlen in der Spalte A ist richtig aber er soll immer wieder 4 neue hinzufügen,
und es darf keine doppelt sein in der gesammten Spalte A!!!
und schön währe es wenn die zufallszahl immer 7 stellig ist !
Danke schon mal im vorraus
|