Zufallszahl generieren mit einem ActiveX Button

[DBSB]

Hallo liebe Forumsmitglieder,

ich bin neu hier und ich bräuchte eure Hilfe. Ich habe leider absolut keine Ahnung von Programmieren weder in Excel noch in anderen Sprachen. Ich möchte aber einen Knopf in Excel2013 erzeugen der auf Knopfdruck in der Zelle "C3" einen Zufallswert zwischen 1000000 und 9999999 erzeugt quasi als Identifikations Nummer die einmalig per Zufall vergeben wird. Ich habe unter der Forumsuche speziell für diese Angelegenheit nichts gefunden.

Vielleicht könnte jemand mir den Code schreiben, damit ich diesen übernehmen kann und auch einen Screenshot unter meinem Post hinterlassen damit ich diesen auch genau so die Funktion übernehme.

Danke im Vorraus


[
Bild bitte so als Datei hochladen: Klick mich!
]

[RPP63]

Moin!
Deine Frage konkret beantwortet:

Code:

[C3] = WorksheetFunction.RandBetween(1000000, 9999999)

Ich glaube aber nicht, dass Du das tatsächlich so willst, denn:

erzeugt quasi als Identifikations Nummer die einmalig per Zufall vergeben wird.

RandBetween kann nämlich durchaus Dubletten erzeugen.

Gruß Ralf

[DBSB]

Ich danke dir. Ich werde das mal so implementieren.

[snb]

Code:

Sub tst()
   MsgBox Rnd * 10 ^ 7 \ 1
End Sub

[RPP63]

No Sir!  :21:
Das ist nicht das Gleiche.
Bei Dir können durchaus Zahlen < 10^6 herauskommen, was aber eine Anforderung des TE war.

Gruß Ralf

[RPP63]

Könnte man so umgehen, die Gefahr eines Überlaufs des Stapelspeichers besteht eher theoretisch.

Code:

Private Sub CommandButton1_Click()
Dim x&
x = Rnd * 10 ^ 7 \ 1
If x >= 10 ^ 6 Then [c3] = x Else Call CommandButton1_Click
End Sub

Gruß Ralf

[Rabe]

Hi,

quasi als Identifikations Nummer die einmalig per Zufall vergeben wird

dann müßte noch in die Datei eine Hilfsspalte rein, in der alle schon verwendeten Zufallszahlen notiert sind und gesucht wird, ob die neue schon mal vorkam.