Anzeige
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 Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

ZufallsBuchstabe als Funktion?

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

Forumthreads zu verwandten 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
Umwandeln in Zahlen mit VBA
Bernhard

Hallo liebe Excel-Experten,
heute brauche ich Eure Hilfe für folgendes Problem: Ich importiere Daten aus einer anderen Anwendung nach Excel und ich bekomme die Zahlen als Text formartiert. Die Zahlen sehen z.B. wie folgt aus: 4.75m, was als Zahl 4750000 entspricht. Ist es mit einem VBA-Code...
25.11.2008 13:46:12
Thread-ID: 1027705
4 Beiträge
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
Anzeige
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
Spaltennummer statt Spaltenbuchstabe
Werner

VBA-Level: befriedigend
Hallo Freunde,
in einer Tabelle sind für die Spalten Namen vergeben. Eine Spaltennummer kann ich dann wie folgt
angeben (WsTabelle is der als Objektvariable definierte Tabellenname):
WsTabelle.Range("Spaltenname").Column
Wenn ich jetzt, z.B. für...
10.04.2009 11:36:27
Thread-ID: 1068172
4 Beiträge
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
Anzeige
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
spalte A und B in userform-textbox1 anzeigen
peter

hallo excels,
ich möchte aus einem tabellenblatt alle einträge aus spalte a un b bei öffnen der userform einlesen lassen.
mein versuch funktioniert leider nicht.

gruss peter
17.04.2002 09:40:16
Thread-ID: 113968
3 Beiträge
max ermitteln, und wert n-spalten links ausgeben
DC

Hi,
ich habe eine Tabelle in der in A1:C1 Ortsnamen stehen: München Hamburg und Frankfurt.
In D1:F1 stehen km-Angaben: 100 200 300 km.
In Zelle G1 ermittle ich über max(D1:F1) die weiteste Entfernung. Nun möchte ich in H1 von F1 (=max) den dazugehörigen Wert 3 Spalten weiter links...
28.01.2010 15:54:40
Thread-ID: 1133847
3 Beiträge
Spalteninhalt in anderer abh. von Zelle anzeigen
Zelle

Sorry if der Titel irreführend ist,
Sagen wir, ich hätte folgende Tabelle
| A| B |C
1 |23| Hans |12
2 |12| Peter |34
3 |34| Fritz |23
A und B gehören zusammen.
Abhängig davon, was in C steht, möchte ich daneb...
10.02.2010 11:33:04
Thread-ID: 1137331
6 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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