Live-Forum - Die aktuellen Beiträge
Datum
Titel
24.04.2024 17:19:09
Formel mit Index-Funktion
24.04.2024 16:19:42
SummeWenn / SummeWenns mit Bedingung wenn kleiner als dann
24.04.2024 14:48:50
"Eingabefeld" zwischen zwei Zeilen geht nicht weg.
24.04.2024 14:40:10
Zeilenumbrüche in Textbox zählen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1400to1404
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
1400to1404
1400to1404
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

x Zufallszahlen, deren Summe 100 ergibt

x Zufallszahlen, deren Summe 100 ergibt
01.01.2015 20:46:46
Ralph

Liebes Forum,
ich möchte in Excel eine variable Anzahl (x) Zufallszahlen generieren, mit den folgenden Einschränkungen:
1) Die Zufallszahlen sollen immer in Summe 100 ergeben
2) die Zufallszahlen sollen alle ungleich Null sein
3) die Anzahl x soll frei wählbar sein und zwischen 1 und 20 liegen
Wie kann ich dies in Excel per Formel, alternativ gerne auch via VBA umsetzen?
Vielen Dank vorab für Eure Ideen!
Ralph

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: x Zufallszahlen, deren Summe 100 ergibt
02.01.2015 01:14:13
Ewald
Hallo,
eine Möglichkeit, wenn die Zahlen nicht Ganzzahlen sein müssen
A2 Formel = "=Zufallszahl", runterziehen bis A21
B2 Formel = "=RANG(A2;$A$2:$A$21)", runterziehen bis B21
C23 Formel = "=SUMME(C2:C21)"
in D2 wird die Anzahl eingetragen (1-20)
in die Tabelle folgenden code einfügen
Private Sub Worksheet_Change(ByVal Target As Range)
Dim arr()
Dim x
Dim i
Dim Faktor
If Target.Address(0, 0) = "D2" Then
ActiveSheet.Range("C2:C21").ClearContents
arr = ActiveSheet.Range("A2:B21").Value
x = ActiveSheet.Range("D2")
For i = 1 To x
Faktor = Faktor + arr(i, 2)
Next
For i = 1 To x
Cells(1 + i, 3).Value = (arr(i, 2) / Faktor) * 100
Next
End If
End Sub
wird jetzt in D2 die Zahl geändert,erscheint in Spalte C die gewählte Anzahl Zahlen die zusammen 100 ergeben.
Gruß Ewald

Anzeige
AW: x Zufallszahlen, deren Summe 100 ergibt
02.01.2015 09:59:56
Ralph
Vielen Dank Ewald,
für die schnelle Antwort!
Funktioniert perfekt (minimale Anpassung der Formel in Spale A: "=Zufallszahl()".
Beste Grüße
Ralph

AW: x Zufallszahlen, deren Summe 100 ergibt
02.01.2015 14:43:27
Hajo_Zi
Hallo Ralph,
was ist offen?

AW: x Zufallszahlen, deren Summe 100 ergibt
02.01.2015 14:46:10
Ralph
Lieber Hajo,
sorry, hatte das Kontrollkästchen fälschlicherweise angeklickt (....wer Lesen kann, ist schwer im Vorteil...).
Es ist NICHTS mehr offen, vielen Dank nochmal an Ewald, die Lösung funktioniert perfekt und ist schon im Einsatz.
Viele Grüße
Ralph

306 Forumthreads zu ähnlichen Themen

Erstellungsdatum bzw. Änderungsdatum in Zelle
di

Hi Forum!
ich habe eine Tabelle mit Adressen (Liste) und möchte gerne beim hinzufügen eines neuen Datensatz beziehungsweise bei Änderung, das aktuelle Datum mit Uhrzeit und Benutzername automatisch in die vordefinierte Zelle eintragen lassen.
Beispiel:
RegistriertAm RegistriertVon G...
01.09.2008 13:22:00
Thread-ID: 1006414
10 Beiträge
Anzeige
Wenn Zahl Dann Datum + 1
Dominik

Hallo zusammen,
folgendes Problem:
Ich habe 2 Spalten - SpalteA (Inhalt: Julianischer Kalender bzw. Zahlen von 100 bis 113)
SpalteB (Inhalt: soll mit einem Datum gefüllt werden)
Nun in Spalte A wechseln die Zahlen nicht von Zeile zu Zeile, sondern es kommt vor dass die Zahl 100...
06.02.2009 12:08:00
Thread-ID: 1047706
9 Beiträge
OHNE VBA Wert aus Zelle +71
Tom

Hallo zusammen,
kann mir jemand sagen ob es die Möglichkeit gibt über eine Formel beim runter ziehen eines Zellbezugs den Wert des Bezugs um 71 Spaltenb zu verschieben?
Beispiel:
Tabelle1 hat in der A1 Zelle einen Wert, in der A72 Zelle wieder einen und nach weiteren 71 Zeilen wiede...
17.06.2009 00:09:09
Thread-ID: 1082093
5 Beiträge
Anzeige
Autofilter: 1 Kriterium für 2 Spalten
Stefan

Guten Morgen,
kann mir jemand bei folgender Frage helfen ?
Ich habe 2 Spalten, die mit Werten gefüllt sind. Nun habe ich mit dem Textfeld aus der Steuerelemente-Toolbox ein Suchfeld erschaffen. Sobald hier ein Suchbegriff eingegeben wird, sollen die beiden Spalten durchsucht und die Erg...
22.10.2009 10:51:27
Thread-ID: 1111254
5 Beiträge
Wert in Zelle um 1 erhöhen
Daniel

Hallo,
kann mir jemand sagen wie der VBA Code aussehen muss für folgendes Problem?!
Also ich habe in Zelle sagen wir B200 einen Wert von 100. Nun möchte ich das per Makro bei Zelle B201 mit dem Wert 1 angefangen wird und in den darunterliegenden Zellen jeweils um 1 erhöht wird, also 1,2...
26.10.2009 12:35:35
Thread-ID: 1112187
12 Beiträge
Zählen "U" Summe übertragen aus Zelle CR10
Steffi

Hallo Zusammen,
Sitze mal wieder da und bekomme es nicht gebacken.
In Zelle CR10 wird Bereich =ZÄHLENWENN(C10:CN10;"U") überprüft auf "U" und werden gezählt.
In Zelle CR31 wird Bereich =ZÄHLENWENN(C31:CO31;"U") überprüft auf "U" und werden gezählt.
So weit gut, nun soll folgende...
06.02.2010 20:59:44
Thread-ID: 1136466
3 Beiträge
Letzte belegte Zelle + 1
Walter

Hallo zusammen,
habe mal diese Makrozeilen erhalten.
Dim rngFind As Range
Set rngFind = Sheets("Haus").Columns(4).Find(What:="Whg1")
ActiveSheet.Cells(rngFind.Row, 1).Select
Ich möchte das jetzt ändern, komm leider nicht drauf auf such die letzte belegte Zelle
+ 1 d...
03.03.2010 15:26:55
Thread-ID: 1143032
3 Beiträge
Erhöhung einer Zahl um 1 in TextBox
Josef

Hallo!
Ich habe in einem Arbeitsblatt mehrere Datensätze stehen.
Beispiel:
411143272000922000000001300
411143272000922000010141100
4111432720009220000203D0104
4111432720009220000303D0104
4111432720009220000403D0104
4111432720009...
13.04.2010 10:10:40
Thread-ID: 1151362
5 Beiträge

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
9
6
8
4
2
4
11
2
2
4
7
1
6
2
6
2
4
2
1
21
5
1
3
6
15