Thema Datum  Von Nutzer Rating
Antwort
Rot Zufallszahlen keine doppelten
08.02.2018 17:01:16 Pin1988
NotSolved
09.02.2018 09:57:01 Michi
NotSolved
09.02.2018 09:59:11 Gast19400
NotSolved

Ansicht des Beitrags:
Von:
Pin1988
Datum:
08.02.2018 17:01:16
Views:
158
Rating: Antwort:
  Ja
Thema:
Zufallszahlen keine doppelten

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


Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst genau und ausführlich
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
  • Bitte markieren Sie Ihre Anfrage als erledigt wenn Ihnen geholfen wurde
Thema: Name: Email:

 
 

Thema Datum  Von Nutzer Rating
Antwort
Rot Zufallszahlen keine doppelten
08.02.2018 17:01:16 Pin1988
NotSolved
09.02.2018 09:57:01 Michi
NotSolved
09.02.2018 09:59:11 Gast19400
NotSolved