Gruppen
- Top Gruppen
- Betriebsysteme
- Windows classik
- Linux
- BS-Sonstige
- Software
- Datenbanken
- Bildbearbeitung
- Audio/mp3/Video
- Security/Viren
- SW-Sonstige
- Hardware
- Mainboard/CPU
- Grafikkarten
- Peripherie
- Laptop/Notebook
- HW-Sonstiges
- Netzwerk
- Telefon,ISDN,Modem
- W-Lan
- NW-Sonstiges
- Programmierung
- PHP,ASP,Perl...
- Java,C++...
- Webseiten/HTML
- Sonstiges
- PC-Sonstiges
- Plauderecke
- SN Intern
- Test
/ Forum / Tabellenkalkulation
Tabellenkalkulation
Fragevon Scotty25 vom 04.01.2019, 08:12 Options
Zufallszahlen
Hallo und ein frohes neues Jahr,
ich habe folgendes Problem:
Ich möchte in der Spalte A ca. 150 Zufallszahlen erzeugen die in einem Bereich von 0,25 bis 0,28 liegen. Gut wäre auch noch wenn ich die Anzahl der benötigten Zufallszahlen eintragen könnte.
Kann mir jemand helfen???
MfG
Scotty
ich habe folgendes Problem:
Ich möchte in der Spalte A ca. 150 Zufallszahlen erzeugen die in einem Bereich von 0,25 bis 0,28 liegen. Gut wäre auch noch wenn ich die Anzahl der benötigten Zufallszahlen eintragen könnte.
Kann mir jemand helfen???
MfG
Scotty
Antwort 1 von Hajo_Zi vom 04.01.2019, 08:14 Options
Hallo Scotty,
such doch mal auf dieser Seite nach Zufallszahl
http://www.excelformeln.de/uberuns.html
Gruß Hajo
such doch mal auf dieser Seite nach Zufallszahl
http://www.excelformeln.de/uberuns.html
Gruß Hajo
Antwort 2 von Scotty25 vom 04.01.2019, 08:34 Options
Hallo Hajo,
ich habe mich wohl etwas falsch ausgedrückt denn ich möchte die Zahlen über einen Button generieren lassen.
Gruß Scotty
ich habe mich wohl etwas falsch ausgedrückt denn ich möchte die Zahlen über einen Button generieren lassen.
Gruß Scotty
Antwort 3 von Pistenschreck vom 04.01.2019, 10:39 Options
Hallo Scotty
Versuch mal diesen Code. Er schreibt ab Zeile 2.
Sub ZufZahl()
Range(Cells(2, 1), Cells(Range("A65536").End(xlUp).Row + 1, 1)) = ""
ANZ = InputBox(Prompt:="Geben Sie die Anzahl Zufallszahlen ein!")
If ANZ = "" Then Exit Sub
For i = 2 To ANZ + 1
nochm:
x = Rnd()
If x < 0.25 Or x > 0.28 Then GoTo nochm
Cells(i, 1) = x
Next i
End Sub
Gruss Werner
Versuch mal diesen Code. Er schreibt ab Zeile 2.
Sub ZufZahl()
Range(Cells(2, 1), Cells(Range("A65536").End(xlUp).Row + 1, 1)) = ""
ANZ = InputBox(Prompt:="Geben Sie die Anzahl Zufallszahlen ein!")
If ANZ = "" Then Exit Sub
For i = 2 To ANZ + 1
nochm:
x = Rnd()
If x < 0.25 Or x > 0.28 Then GoTo nochm
Cells(i, 1) = x
Next i
End Sub
Gruss Werner
Ähnliche Themen
normalverteilte zufallszahlen
rudigan 26.04.2007 - 125 Hits - 1 Antwort
leere Festplattenbereiche loeschen
Tomschi 20.06.2007 - 130 Hits - 3 Antworten
Zufallszahlen in Website
bafez 29.06.2007 - 72 Hits - 9 Antworten
Normalverteilte zufallszahlen mit Mittelwert und Streuung
zufall 30.10.2007 - 280 Hits - 8 Antworten
Dezimal Zahlen im Zufallsbereich generieren
Thindboy 17.04.2008 - 46 Hits - 2 Antworten
Hinweis
Diese Frage ist schon etwas älter, Sie können daher nicht mehr auf sie antworten. Sollte Ihre Frage noch nicht gelöst sein, stellen Sie einfach eine neue Frage im Forum..
Neue Einträge
