Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
632to636
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
632to636
632to636
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Random Funktion

Random Funktion
11.07.2005 14: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
Anzeige
AW: Random Funktion
11.07.2005 15: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 15: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 15:11:00
u_
Hallo,
dann meine Funktion.
Gruß
Geist ist geil!
AW: Random Funktion
11.07.2005 15:09:47
u_
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!
Anzeige
AW: Random Funktion
11.07.2005 15:05:52
u_
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!

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige