Hi Leute
ich bin mit meinem Latein am Ende und zwar will ich eine Zufallsgenerator erstellen.
Er soll Entweder eine Zahl zwischen „0-9“ oder eine Buchstbaben „A-Z“
Also ich würde gerne ein Formel als Antwort kreigen oder eie Tipp wo man was über solchen Befehle nachlesen kann!
Das Erbegniss soll so am Ende sein:
…1J7K391L0WGT3N6100A…
Ich habe in der Ecxel hilfe nachgekuckt und nur eine Formel gefunden mit der man eine Zahl generieren kann!
schon mal vielen Dank für eure antworten!
mfg Sven
ich bin mit meinem Latein am Ende und zwar will ich eine
Zufallsgenerator erstellen.
Er soll Entweder eine Zahl zwischen „0-9“ oder eine
Buchstbaben „A-Z“Also ich würde gerne ein Formel als Antwort kreigen oder eie
Tipp wo man was über solchen Befehle nachlesen kann!
Das Erbegniss soll so am Ende sein:
…1J7K391L0WGT3N6100A…
Hi Sven,
den Unterschied in A1:A3 siehst du wenn du in einer beliebigen anderen Zelle einen Wert eingibst/änderst. A3 bleibt konstant, A1:A2 ändern sich jedesmal.
Für die Variante in A1 brauchst du ein Hilfsblatt, hier „Zahlen“ benannt, siehe die untere Tabelle.
Für die BDF in A2:A3 ( B enutzer d efinierte F unktion) brauchst du den Vba-Code. Anzahl ist die Länge des entstehenden Textes.
Um den Code einzugeben, Alt+F11, Einfügen–Modul, Code reinkopieren, Editor schließen.
Tabellenblatt: [Mappe1]!Tabelle1
│ A │
──┼────────────┤
1 │ DGG2QO73O3 │
──┼────────────┤
2 │ 9GL24Y9VK7 │
──┼────────────┤
3 │ MDJMN5OXRX │
──┴────────────┘
Benutzte Formeln:
A1: =Zahlen!C1
A2: =Kodierung(10)&LINKS(JETZT();0)
A3: =Kodierung(10)
Code für Modul1:
Function Kodierung(ByVal Anzahl As Integer) As String
Dim Anz As Integer
Const strWahl As String = "0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ"
For Anz = 1 To Anzahl
Kodierung = Kodierung & Mid(strWahl, Int(Rnd() \* 36) + 1, 1)
Next Anz
End Function
Tabellenblatt: [Mappe1]!Zahlen
│ A │ B │ C │
───┼────┼───┼────────────┤
1 │ 13 │ D │ DGG2QO73O3 │
───┼────┼───┼────────────┤
2 │ 16 │ G │ │
───┼────┼───┼────────────┤
3 │ 16 │ G │ │
───┼────┼───┼────────────┤
4 │ 2 │ 2 │ │
───┼────┼───┼────────────┤
5 │ 26 │ Q │ │
───┼────┼───┼────────────┤
6 │ 24 │ O │ │
───┼────┼───┼────────────┤
7 │ 7 │ 7 │ │
───┼────┼───┼────────────┤
8 │ 3 │ 3 │ │
───┼────┼───┼────────────┤
9 │ 24 │ O │ │
───┼────┼───┼────────────┤
10 │ 3 │ 3 │ │
───┴────┴───┴────────────┘
Benutzte Formeln:
A1 : =GANZZAHL(ZUFALLSZAHL()\*36)
A2 : =GANZZAHL(ZUFALLSZAHL()\*36)
A3 : =GANZZAHL(ZUFALLSZAHL()\*36)
A4 : =GANZZAHL(ZUFALLSZAHL()\*36)
A5 : =GANZZAHL(ZUFALLSZAHL()\*36)
A6 : =GANZZAHL(ZUFALLSZAHL()\*36)
A7 : =GANZZAHL(ZUFALLSZAHL()\*36)
A8 : =GANZZAHL(ZUFALLSZAHL()\*36)
A9 : =GANZZAHL(ZUFALLSZAHL()\*36)
A10: =GANZZAHL(ZUFALLSZAHL()\*36)
B1 : =ZEICHEN(WENN(A1\>9;55;48)+A1)
B2 : =ZEICHEN(WENN(A2\>9;55;48)+A2)
B3 : =ZEICHEN(WENN(A3\>9;55;48)+A3)
B4 : =ZEICHEN(WENN(A4\>9;55;48)+A4)
B5 : =ZEICHEN(WENN(A5\>9;55;48)+A5)
B6 : =ZEICHEN(WENN(A6\>9;55;48)+A6)
B7 : =ZEICHEN(WENN(A7\>9;55;48)+A7)
B8 : =ZEICHEN(WENN(A8\>9;55;48)+A8)
B9 : =ZEICHEN(WENN(A9\>9;55;48)+A9)
B10: =ZEICHEN(WENN(A10\>9;55;48)+A10)
C1 : =B1&B2&B3&B4&B5&B6&B7&B8&B9&B10
Tabellendarstellung erreicht mit dem Code in FAQ:2363
Gruß
Reinhard
Code für Modul1:
Function Kodierung(ByVal Anzahl As Integer) As
Reinhard
Super. Ich ziehe alle Hüte vor Dir und laufe auch beim grössten Schneetreiben barhäuptig weiter.
Niclaus
Hi Sven,
ich bin leider kein Profi wie die Leute, die schon geantwortet haben; ich ziehe also den für mich nachvollziehbaren Weg vor, auch wenn er umständlich ist. Für mich wäre das dann beispielsweise:
A1 =ZUFALLSBEREICH(1;9)
B1 =ZUFALLSBEREICH(1;26)
C1 =SVERWEIS(B1;D:E;2;FALSCH)
D1 - D26: 1 - 26
E1 - E26: A - Z
Zielzelle: =A1&C1
… Aber das ist sicher viel zu umständlich. Ich hatte das so verstanden, dass Du nach einer Formel fragtest - vielleicht brauchst Du die Formel ja mal für was anderes.
Gruß Verena
Er soll Entweder eine Zahl zwischen „0-9“ oder eine
Buchstbaben „A-Z“Also ich würde gerne ein Formel als Antwort kreigen oder eie
Tipp wo man was über solchen Befehle nachlesen kann!
Das Erbegniss soll so am Ende sein:
…1J7K391L0WGT3N6100A…
Hi Sven,
eine Variante ohne Vba und ohne Hilfzellen/spalten
Tabellenblatt: [Mappe1]!Tabelle1
│ A │
──┼──────────────┤
1 │ 0M5KMCU27NS9 │
──┼──────────────┤
2 │ 67AZJDTBAYN4 │
──┼──────────────┤
3 │ ERNXJONWDACI │
──┼──────────────┤
4 │ O65JACBLJ3RY │
──┼──────────────┤
5 │ O6DI3DOJ0SI1 │
──┼──────────────┤
6 │ NRCFI7AUBC77 │
──┼──────────────┤
7 │ FX5IVCORF109 │
──┼──────────────┤
8 │ LQOQN2V3C4AI │
──┴──────────────┘
Benutzte Formeln:
A1: =Ö&Ö&Ö&Ö&Ö&Ö&Ö&Ö&Ö&Ö&Ö&Ö
A2: =Ö&Ö&Ö&Ö&Ö&Ö&Ö&Ö&Ö&Ö&Ö&Ö
A3: =Ö&Ö&Ö&Ö&Ö&Ö&Ö&Ö&Ö&Ö&Ö&Ö
A4: =Ö&Ö&Ö&Ö&Ö&Ö&Ö&Ö&Ö&Ö&Ö&Ö
A5: =Ö&Ö&Ö&Ö&Ö&Ö&Ö&Ö&Ö&Ö&Ö&Ö
A6: =Ö&Ö&Ö&Ö&Ö&Ö&Ö&Ö&Ö&Ö&Ö&Ö
A7: =Ö&Ö&Ö&Ö&Ö&Ö&Ö&Ö&Ö&Ö&Ö&Ö
A8: =Ö&Ö&Ö&Ö&Ö&Ö&Ö&Ö&Ö&Ö&Ö&Ö
Festgelegte Namen:
Ö: =TEIL("1234567890ABCDEFGHIJKLMNOPQRSTUVWXYZ";GANZZAHL(ZUFALLSZAHL()\*36+1);1)
A1:A8
haben das Zahlenformat: Standard
Tabellendarstellung erreicht mit dem Code in FAQ:2363
Gruß
Reinhard