Live-Forum - Die aktuellen Beiträge
Datum
Titel
17.10.2025 10:28:49
Call Anweisung
16.10.2025 18:38:17
Zusammenfassung nach Personalnummer
16.10.2025 17:40:39
Rabattstafel
16.10.2025 17:25:38
bedingte Formatierung
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
632to636
632to636
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Random Funktion

Forumthread: 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
Anzeige

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....
Anzeige
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!
Anzeige
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige