Random Funktion

Forumthread: Random Funktion
5 Beiträge zu diesem Forumthread
Anzeige
VBA Beispiele zu verwandten Themen

Forumthread: Random Funktion

Random Funktion

11.07.2005 16:42:45

stefan

Hallo
Ich habe folgendes Problem. Ich möchte eine Random Funktion erstellen, von der ich die zur Verfügung stehenden Zeichen festlegen möchte.
Das heisst: Generiere mir Felder mit 3 Zeichen aus folgendem Bereich (A, B, G, X, 4, 5, 6, Z)
Nun ich hab die RAND() (ZUFALLSZAHL) Funktion gefunden. Aber wie kann ich da den Bereich angeben?
mfg
Stefan Antener

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Random Funktion

11.07.2005 17:02:24

UweD
AW: Random Funktion

11.07.2005 17:08:20

stefan
AW: Random Funktion

11.07.2005 17:11:00

u_
AW: Random Funktion

11.07.2005 17:09:47

u_
AW: Random Funktion

11.07.2005 17:05:52

u_

AW: Random Funktion

11.07.2005 17:02:24

UweD

Hallo
so z.B.
=TEIL("ABGX456Z";AUFRUNDEN(ZUFALLSZAHL()*8;0);1)
Gruß UweD
(Rückmeldung wäre schön)

AW: Random Funktion

11.07.2005 17:08:20

stefan

Yeah, super klappt schonmal prima.
Nun habe ich das Proplem, dass die Zahlen ständig neu generiert werden.
Beispiel: Ich schreibe in irgend ein Feld etwas rein und drücke ENTER. Danach werden alle Zufallszahlen auf dem Sheet neu generiert.
Hmm....

AW: Random Funktion

11.07.2005 17:11:00

Hallo,
dann meine Funktion.
Gruß
Geist ist geil!

AW: Random Funktion

11.07.2005 17:09:47

Hallo,
sehr schön!
Also als Konsequenz für 3 Zeichen:
=TEIL("ABGX456Z";AUFRUNDEN(ZUFALLSZAHL()*8;0);1)&TEIL("ABGX456Z";AUFRUNDEN(ZUFALLSZAHL()*8;0);1)&TEIL("ABGX456Z";AUFRUNDEN(ZUFALLSZAHL()*8;0);1)
Gruß
Geist ist geil!

AW: Random Funktion

11.07.2005 17:05:52

Hallo,
das geht nicht mit einer Formel.
In ein Modul:


Function Zufall()
Dim tmp As String, t As Integer
Do
Randomize
t = Int(90 - 47) * Rnd + 48
Select Case t
Case 52 To 54, 65, 66, 71, 88, 90
tmp = tmp & Chr(t)
End Select
Loop Until Len(tmp) = 3
Zufall = tmp
End Function

Gruß
Geist ist geil!