Live-Forum - Die aktuellen Beiträge
Datum
Titel
20.04.2024 00:49:19
Excel Sheet in einen Excel Kalender einfügen
20.04.2024 00:08:11
In Ordner nur das Speichern von Dateien erlauben
19.04.2024 21:26:15
mehrfache Texte finden
19.04.2024 19:41:34
Bei VBA Ausführung Anzeige einfrieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
460to464
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
460to464
460to464
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

ZufallsBuchstabe als Funktion?

ZufallsBuchstabe als Funktion?
02.08.2004 14:00:32
NIke
Hi,
wie kann ich eine Zufallszeichenkette aus zwei Zeichen
per Funktion erzeugen, die alle Buchstaben zwischen A - Z und 0 - 9
als Basis hat.
Infos Tips, waeren nett...
Bye
Nike

17
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: ZufallsBuchstabe als Funktion?
02.08.2004 14:20:17
Nepumuk
Hallo Nike,
z.B. so:


Public Function Zufall() As String
    Dim strArray(1 To 36) As String
    Dim intIndex As Integer, intCounter As Integer
    Application.Volatile
    Randomize Timer
    For intIndex = 48 To 90
        If intIndex = 58 Then intIndex = 65
        intCounter = intCounter + 1
        strArray(intCounter) = Chr(intIndex)
    Next
    Zufall = strArray(36 * rnd + 1) & strArray(36 * rnd + 1)
End Function


Gruß
Nepumuk
Anzeige
AW: ZufallsBuchstabe als Funktion?
Nike
Hi,
ok, ich der VBA Spezi hab vergessen zu erwaehnen,
das ich es dieses Mal ausnahmsweise mal als Tabellenblattfunktion braeuchte :-)
Sorry, aber Danke fuer den Ansatz.
Bye
Nike
Formellösung
IngoG
Hallo Nike,
um eine gleichverteilung zwischen allen 35 möglichen ausprägungen zu erhalten bin ich folgendermaßen vorgegangen:
=WENN(GANZZAHL(ZUFALLSZAHL()*35)&lt=10;ZEICHEN(GANZZAHL(ZUFALLSZAHL()*10)+48);ZEICHEN(GANZZAHL(ZUFALLSZAHL()*25)+65))&WENN(GANZZAHL(ZUFALLSZAHL()*35)&lt=10;ZEICHEN(GANZZAHL(ZUFALLSZAHL()*10)+48);ZEICHEN(GANZZAHL(ZUFALLSZAHL()*25)+65))
Gruß Ingo
Anzeige
AW: ZufallsBuchstabe als Funktion?
02.08.2004 14:20:20
Otto
Hallo Nike,
Meine Testumgebung: Excel 9.0 SR-1, Multilingual unter Windows 2000 SP-4
was hältst Du von

Bild
von Otto an Nike
 AB
49 Formel in Spalte A
5013=ABRUNDEN(ZUFALLSZAHL()*(26+10);0)
511=ABRUNDEN(ZUFALLSZAHL()*(26+10);0)
52D1=WENN(A50&lt10;A50;ZEICHEN(A50+55)) & WENN(A51&lt10;A51;ZEICHEN(A51+55))

Gruß Otto
Anzeige
AW: ZufallsBuchstabe als Funktion?
Nike
Hi,
das kommt schon in die Richtung,
Braeuchte es nur moeglichst alles in einer Zeile ;-)
Bin hier in nem englischen System, muss mir jetzt nur noch die Funktionen 'uebersetzen' ;-)
Danke auf jeden Fall.
Bye
Nike
AW: das hier funkt noch nicht:
Nike
Hi,
das hier war mein Versuch, nur leider kommen da immer ein paar Fehler bei rueber:
=CHAR(IF(ABS(RAND()*90)&lt48,ABS(RAND()*90)+48,IF(AND(ABS(RAND()*90)&gt58,ABS(RAND()*90)&lt65),ABS(RAND()*90)+7,ABS(RAND()*90))))
Ich brauch nur Werte von 48 - 57 und 65 - 90
Any advice?
Bye
Nike
AW: das hier funkt noch nicht:
02.08.2004 15:06:21
Otto
Hallo Nike,
Meine Testumgebung: Excel 9.0 SR-1, Multilingual unter Windows 2000 SP-4
Das kann in einer einzigen Formel IMHO nicht funtionieren, da die Funktion RAND() oder auch ZUFALLSZAHL mit jedem Aufruf einen neuen Wert liefert. Deshalb sind nur zwei RAND-Aufrufe erlaubt, pro Zeichen einer.
Eine Lösung nur mit einer Formel würde, ähnlich wie in Nepumuks Ansatz eine Tabelle mit 36 Einträgen brauchen die die Abbildung der Zufallszahl auf den Alphanumerischen Wert liefert. Noch eine andere Alternative wäre das Benutzen eines Zeichensatzes in dem die Ziffern und die Buchstaben direkt hintereinander liegen.
Gruß Otto
Anzeige
AW: das hier funkt noch nicht:
Nike
Hi,
ok, dann generiere ich die zwei Zeichen in zwei separaten Zellen.
Leider komme ich bei menier Loesung immer noch auf Werte,
die ausserhalb meines eigentlichen Wertebereichs liegen,
wo hab ich denn meinen Fehler versteckt?
Hilfe waere echt nett, ich seh grad nur Baeume und keinen Wald ;-)
Bye
Nike
AW: das hier funkt noch nicht:
02.08.2004 15:25:42
Otto
Hallo Nike,
Meine Testumgebung: Excel 9.0 SR-1, Multilingual unter Windows 2000 SP-4
eine Lösung mit einer einzigen Formel und einem benamsten Bereich in Anlehnung an Nepumuk
Ich habe folgenden Bereich mit dem schönen Namen Nike belegt:

Bild
von Otto an Nike
 A
20
31
42
53
64
75
86
97
108
119
12A
13B
14C
15D
16E
17F
18G
19H
20I
21J
22K
23L
24M
25N
26O
27P
28Q
29R
30S
31T
32U
33V
34W
35X
36Y
37Z
Dann funktioniert

Bild
von Otto an Nike
 CD
1 Formel in Spalte C
2FE=INDEX(Nike;ABRUNDEN(ZUFALLSZAHL()*(36);0);1) & INDEX(Nike;ABRUNDEN(ZUFALLSZAHL()*(36);0);1)
Der Bereich Nike kann natürlich auch in einem verborgenen Tabellenblatt liegen
Gruß Otto
Anzeige
AW: ZufallsBuchstabe als Funktion?
ChrisL
Hi Nike

Function Zufallswert() As String
Dim ZufallsZahl As Byte, i As Byte
Application.Volatile
For i = 1 To 2
ZufallsZahl = Int((36 * Rnd) + 1)
If ZufallsZahl > 26 Then
Zufallswert = Zufallswert & (ZufallsZahl - 27)
Else
Zufallswert = Zufallswert & Chr(ZufallsZahl + 64)
End If
Next i
End Function

Gruss
Chris
AW: ZufallsBuchstabe als Funktion?
Nike
Hi,
danke, aber ich haette es dieses Mal als Tabllenblattformel gebraucht.
Sorry.
Bye
Nike
AW: ZufallsBuchstabe als Funktion?
ChrisL
Hi Nike
Schreibe in die Zelle...
=Zufallswert()
...und schon hast du eine Tabellenformel.
Gruss
Chris
Anzeige
ZufallsAlphanumerisches als Funktion!
02.08.2004 16:24:25
Otto
Hallo Nike,
Meine Testumgebung: Excel 9.0 SR-1, Multilingual unter Windows 2000 SP-4
am Einfachsten ist:
=TEIL("1234567890QWERTZUIOPASDFGHJKLYXCVBNM";ABRUNDEN(ZUFALLSZAHL()*36;0);1) & TEIL("1234567890QWERTZUIOPASDFGHJKLYXCVBNM";ABRUNDEN(ZUFALLSZAHL()*36;0);1)
Gruß Otto
AW: ZufallsAlphanumerisches als Funktion!
ingoG
Hallo Otto,
sehr schöne Lösung und vor allem sofort einleuchtend...
Gruß ingo
AW: ZufallsAlphanumerisches als Funktion!
02.08.2004 16:50:59
Otto
Hallo Nike, Ingo,
Meine Testumgebung: Excel 9.0 SR-1, Multilingual unter Windows 2000 SP-4
und vorher Gehirn einschalten liefert:
=TEIL("1234567890QWERTZUIOPASDFGHJKLYXCVBNM";AUFRUNDEN(ZUFALLSZAHL()*36;0);1) & TEIL("1234567890QWERTZUIOPASDFGHJKLYXCVBNM";AUFRUNDEN(ZUFALLSZAHL()*36;0);1)
Gruß Otto
Anzeige
AW: ZufallsAlphanumerisches als Funktion!
Nike
Hi Otto,
danke, funkt.
Bye
Nike
Mit Beispiel
IngoG
Hallo Nike,
hab Dir noch mal eine Datei erzeugt, wo Du gleich die Verteilung sehen kannst...
Diesmal sogar mit Z ;-)
Die formel lautet mit allen Buchstaben:
=WENN(GANZZAHL(ZUFALLSZAHL()*36)&lt=10;ZEICHEN(GANZZAHL(ZUFALLSZAHL()*10)+48);ZEICHEN(GANZZAHL(ZUFALLSZAHL()*26)+65))&WENN(GANZZAHL(ZUFALLSZAHL()*36)&lt=10;ZEICHEN(GANZZAHL(ZUFALLSZAHL()*10)+48);ZEICHEN(GANZZAHL(ZUFALLSZAHL()*26)+65))
https://www.herber.de/bbs/user/9145.xls
Gruß Ingo

300 Forumthreads zu ähnlichen Themen

Buchstaben als Ergebnis einer Wenn- Funktion
Mario

Grüßt euch,
ich rätsel gerade, wie sich auch Buchstaben als Ergebnis einer Wenn-Funktion übernehmen lassen.
Meine Formel:
=WENN(Maße!B11=1;Maße!K6)+WENN(Maße!B11=2;Maße!K7)+WENN(Maße!B11=3;Maße!K8)+WENN(Maße!B11=4;Maße!K9) +WENN(Maße!B11=5;Maße!K10)
Stehen in K6, K7,...
21.11.2008 22:21:55
Thread-ID: 1026853
3 Beiträge
Anzeige
Zahl im Text herausfinden vba
Harald

Hallo im Excelforum,
ich möchte aus einer Zelle in der Text und Zahlen stehen, eine sechstellige Zahl finden deren erste 3 Zahlen immer gleich sind zb 208xxx und das mit vba. In Spalte vier steht der Text und in Spalte 9 sollte dann nur noch die Zahl stehen.
mfg
Harald
30.12.2008 16:07:13
Thread-ID: 1036013
22 Beiträge
Zahlen in Text umwandeln
Thomas

Liebe Excelianer
Ich fülle per Excel ein Formular aus, welches ich anschliessend auf einen Check drucke. Darauf gibt es ein Feld mit einem Total, welches unten in Textform übertragen werden muss (Betrag in Worten).
Was kann ich tun, damit diese Zahl automatisch in Buchstaben umgewandelt...
01.04.2009 23:23:30
Thread-ID: 1066161
16 Beiträge
Anzeige
Spaltenbuchstaben in zahlen wandeln
Tobiax

Guten Morgen!
Ich gebe die var Spalte als zahl vor und möchte dann in die z.b. 25.Spalte (das wäre dann Y) gehen und dort in die Zeile 3 auswählen
Range( Spalte & "3").Select klappt ja nicht.
Wie kann ich das konvertieren ?
Toby...
13.05.2009 08:21:56
Thread-ID: 1074706
3 Beiträge
GROSSBUCHSTABEN in kleinbuchstaben umwandeln
marbet

Hallo,
kann mir jdm sagen, wir ich eine Tabelle, die in lauter Großbuchstaben geschreiben ist in kleine ändern kann?
Die Funktion =klein(Text) funktioniert leider nicht....
Vielen Dank!
09.06.2009 11:13:41
Thread-ID: 1080092
5 Beiträge
nach @ Buchstaben und Zeichen in Spalte daneben
Thomas

Hallo Forum!
Ich hab in Spalte D viele verschiedene E-Mailadressen und möchte jeweils alles was nach dem @ kommt in die Spalte E daneben hineinkopieren. Die Teilformel nutzt mir ja nicht viel wiel die Zeichen und Buchstaben vor dem @ immer unterschiedlich sind.
Viellecht kann mir wer he...
24.06.2009 09:22:34
Thread-ID: 1084002
2 Beiträge
2 Spalte in ComboBox anzeigen
ray

Hallo,
ich hab grad das Archiv durchsucht und kann mein Problem leider nciht lösen:
Ich möchte mit nachstehenden Code (aus diesem Forum) nicht nur Spalte 8 sondern Spalte 1 und 8 anzeigen lassen. Hab schon rumprobiert, aber nix geht...
'#### ComboBox mit ALLEN Mänglen füllen START...
07.09.2009 09:35:21
Thread-ID: 1100952
10 Beiträge
Zahl in Uhrzeit umwandeln
Bernd

Hallo,
ein frohes neues Jahr.
Ich habe z.B. in A1 die Zahl 58 stehen.
Nun möchte ich, dass in B1 ebenfalls die 58 dargestellt wird. Nun aber nicht mehr als Zahl, sondern als Stunden.
Kann mir da bitte einer helfen.
Lieben Dank
Gruß Bernd
01.01.2010 14:17:36
Thread-ID: 1126624
8 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
2
3
21
15
3
2
4
1
9
7
6
2
2
5
2
6
23
4
5
2
3
2
15
1
9