Hallo w-w-w-ler,
ich suche eine Funktion die Zahlen 1 bis 8 zufällig anzuordnen.
z.B.
12345678
21876543
usw
gibt es dafür eine Funktion die ich noch nicht gefunden habe??
Vielen Dank Uli
ich suche eine Funktion die Zahlen 1 bis 8 zufällig
anzuordnen.
z.B.
12345678
21876543
gibt es dafür eine Funktion die ich noch nicht gefunden habe??
nein
Hi Uli,
schau mal bei www.excelformeln.de, wenn es da nix gibt dann geht es nicht mit Excel, sondern nur mit VBA.
Gruß
Reinhard
Kombinationen
ich suche eine Funktion die Zahlen 1 bis 8 zufällig
anzuordnen.
z.B.
12345678
21876543
usw
Hi Uli,
nachfolgenden Code in ein Modul. In A1:A8 schreibst du untereinander 1 2 3 usw, oder a b c usw. Die Sub Test() erzeugt dann in Spalte B alle möglichen Kombinationen.
Gruß
Reinhard
Sub Test()
Dim i As Long
Dim src As Range
Dim dest As Range
Dim y() As String
Set src = Range("A1")
Set dest = Range("B1")
ReDim y(1 To 1)
y(1) = ""
Do Until IsEmpty(src)
Include Left(src.Text, 1), y
Set src = src.Offset(1, 0)
Loop
For i = 1 To UBound(y)
dest(i, 1).Value = y(i)
Next i
dest.Resize(UBound(y)).Sort dest
End Sub
Private Sub Include(x As String, y As Variant)
Dim i As Long
Dim j As Long
Dim m As Long
Dim n As Long
m = UBound(y)
n = Len(y(1))
ReDim Preserve y(1 To m \* (n + 1))
For i = n To 0 Step -1
For j = 1 To m
y(i \* m + j) = Left(y(j), i) & x & Right(y(j), n - i)
Next j
Next i
End Sub
Hallo Uli,
vielleicht hast du die folgenden Formeln noch nicht:
Tabellenblattname: Tabelle1
| A | B |...| G | H | I | J | K | L | M | N | O | P | Q |
1| Zufallszahlen | Ränge | Ergebnis2 |
2| 0,047 | 0,417 |...| 0,733 | 0,319 | 8 | 5 | 2 | 3 | 7 | 1 | 4 | 6 | 85237146 |
3| 0,278 | 0,575 |...| 0,577 | 0,725 | 6 | 4 | 3 | 5 | 7 | 8 | 2 | 1 | 64357821 |
Benutzte Formeln:
A2: =ZUFALLSZAHL()
A3: =ZUFALLSZAHL()
usw. bis
H2: =ZUFALLSZAHL()
H3: =ZUFALLSZAHL()
I2: =RANG(A2;$A2:blush:H2)
I3: =RANG(A3;$A3:blush:H3)
J2: =RANG(B2;$A2:blush:H2)
J3: =RANG(B3;$A3:blush:H3)
usw. bis
P2: =RANG(H2;$A2:blush:H2)
P3: =RANG(H3;$A3:blush:H3)
Q2: =(I2&J2&K2&L2&M2&N2&O2&:stuck\_out\_tongue\_winking\_eye:2)\*1
Q3: =(I3&J3&K3&L3&M3&N3&O3&:stuck\_out\_tongue\_winking\_eye:3)\*1
Kürzer gehts, wenn man die Ränge nicht in Zellen speichert, sondern direkt in der dann längeren Ergebnisformel berechnet:
Tabellenblattname: Tabelle2
| A | B | C | D | E | F | G | H | I |
1| Zufallszahlen | Ergebnis |
2| 0,824 | 0,676 | 0,361 | 0,979 | 0,536 | 0,495 | 0,617 | 0,556 | 23816745 |
3| 0,224 | 0,551 | 0,299 | 0,182 | 0,313 | 0,388 | 0,714 | 0,093 | 62574318 |
Benutzte Formeln:
A2 bis H3: =ZUFALLSZAHL() (wie in Tabelle1)
I2: =(RANG($A2;$A2:blush:H2)&RANG($B2;$A2:blush:H2)&RANG($C2;$A2:blush:H2)&RANG($D2;$A2:blush:H2)&RANG($E2;$A2:blush:H2)&RANG($F2;$A2:blush:H2)&RANG($G2;$A2:blush:H2)&RANG($H2;$A2:blush:H2))\*1
I3: =(RANG($A3;$A3:blush:H3)&RANG($B3;$A3:blush:H3)&RANG($C3;$A3:blush:H3)&RANG($D3;$A3:blush:H3)&RANG($E3;$A3:blush:H3)&RANG($F3;$A3:blush:H3)&RANG($G3;$A3:blush:H3)&RANG($H3;$A3:blush:H3))\*1
Zur letzten Zeile der untenstehenden Lösung, die in
http://www.excelformeln.de/formeln.html?welcher=318
(für eine Zeichenkette, die sich ja auch auf „12345678“ reduzieren lässt) vorgeschlagen wird, habe ich eine Frage:
Dadurch, dass 8 mal die Zelle mit dem Namen „Zufall“ verwendet wird, erhalte ich im Ergebnis 8 mal dasselbe Zeichen - und nicht, wie gewpnscht unterschiedliche Zeichen. Mache ich was falsch oder liegt es an dieser Lösung?
Grüße
Erich
Ein 8-stelliges Kennwort zufällig vergeben (Ergänzung) (318)
Ergänzung vom 03.08.04 von Otto S.
Lösung mit beliebigem, fest vorgegebenem Zeichensatz
vergebe einen Namen
Zeichensatz
bezieht sich auf
="1234567890qwertzuiopasdfghjklyxcvbnmQWERTZUIOPLKJHGFDSAYXCVBNM-$"
als Beispiel für Ziffern, Groß- und Kleinbuchstaben, - und $
Vergebe einen weiteren Namen
Zufall
bezieht sich auf
=TEIL(Zeichensatz;AUFRUNDEN(ZUFALLSZAHL()\*LÄNGE(Zeichensatz);0);1)
und schreibe in eine Zelle
=Zufall&Zufall&Zufall&Zufall&Zufall&Zufall&Zufall&Zufall
Hallo,
vielen Dank für eure Hilfe!!
Es hat funktioniert. Habe den Vorschlag von Erich verwendet, da ich den „verstehe“ 
)
Vielen Dank an Alle
Uli
Dadurch, dass 8 mal die Zelle mit dem Namen „Zufall“ verwendet
wird, erhalte ich im Ergebnis 8 mal dasselbe Zeichen - und
nicht, wie gewpnscht unterschiedliche Zeichen. Mache ich was
falsch oder liegt es an dieser Lösung?
Hallo Erich,
wenn eine Formel aus der Quelle nicht klappt, liegt es garantiert an dir 
Ich nehme an du hast „12345678“ in eine Zelle geschrieben und der Zelle den Namen „Zeichensatz“ gegeben und desgleichen für „Zufall“.
Da liegt der Fehler, du musst direkt den Namen Zeichensatz für =„1234678“ vergeben und für „Zufall“ auch, dann klappt es.
Gruß
Reinhard
Ein 8-stelliges Kennwort zufällig vergeben (Ergänzung)
(318)Ergänzung vom 03.08.04 von Otto S.
Lösung mit beliebigem, fest vorgegebenem Zeichensatz
vergebe einen Namen
Zeichensatz
bezieht sich auf
=„1234567890qwertzuiopasdfghjklyxcvbnmQWERTZUIOPLKJHGFDSAYXCVBNM-$“
als Beispiel für Ziffern, Groß- und Kleinbuchstaben, - und $
Vergebe einen weiteren Namen
Zufall
bezieht sich auf
=TEIL(Zeichensatz;AUFRUNDEN(ZUFALLSZAHL()*LÄNGE(Zeichensatz);0);1)
und schreibe in eine Zelle
=Zufall&Zufall&Zufall&Zufall&Zufall&Zufall&Zufall&Zufall
Hallo Reinhard,
danke, da hast du mir auf die Sprünge geholfen!
Entscheidend ist, dass dem Namen „Zufall“ keine Zelle, sondern die Formel zugeordnet wird.
Beim Zeichensatz ist es egal. Da finde ich es einfacher, den Zeichensatz in einer Zelle zu speichern (und zu ändern) und dieser Zelle den Namen „Zeichensatz“ zu geben.
Grüße
Erich
Hallo Reinhard,
danke, da hast du mir auf die Sprünge geholfen!
Gerne Erich, habe jetzt nicht alle Kombinationen durchgetestet, sondern nur beides in Zellen geschrieben und dann trat der Effekt auf, alles gleiche Zeichen.
Was bei www.excelformeln.de von Boris und den anderen beiden ist, ich blick da bei kaum einer der Arrayformeln durch, ist wie ne andere Welt, habe massivstee Schwierigkeiten die Formeln mal auf andere Spalten anzupassen oder sonstwie zu ändern 
Irgednwann werde ich mal Klassenmodule kapieren, oder Frauen ( nicht wirklich glaub *g)aber die Arrayformeln dort, never in this live
Gruß
Reinhard