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:
990		 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 ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • 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
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • 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

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