Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

x Zufallszahlen, deren Summe 100 ergibt

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

Anzeige

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

Anzeige
;

Forumthreads zu verwandten Themen

Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Infobox / Tutorial

Zufallszahlen in Excel generieren, deren Summe 100 ergibt


Schritt-für-Schritt-Anleitung

Um in Excel eine variable Anzahl (x) an Zufallszahlen zu generieren, deren Summe 100 ergibt, kannst du die folgende Schritt-für-Schritt-Anleitung verwenden. Diese Methode funktioniert in Excel-Versionen, die die Funktion Zufallszahl() unterstützen.

  1. Zufallszahlen erstellen:

    • Trage in Zelle A2 die Formel =Zufallszahl() ein.
    • Ziehe die Formel bis zur Zelle A21 nach unten, um insgesamt 20 Zufallszahlen zu generieren.
  2. Zufallszahlen sortieren:

    • In Zelle B2 trage die Formel =RANG(A2;$A$2:$A$21) ein.
    • Ziehe die Formel bis zur Zelle B21 nach unten.
  3. Summe der Zufallszahlen berechnen:

    • In Zelle C23 kannst du die Formel =SUMME(C2:C21) verwenden, um die Summe der generierten Zahlen zu überprüfen.
  4. Anzahl der Zufallszahlen angeben:

    • In Zelle D2 gibst du die gewünschte Anzahl von Zufallszahlen (zwischen 1 und 20) ein.
  5. VBA-Code hinzufügen:

    • Öffne den VBA-Editor (Alt + F11) und füge den folgenden Code in das entsprechende Arbeitsblatt ein:
      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
  6. Zufallszahlen generieren:

    • Ändere den Wert in D2, um die Zufallszahlen in Spalte C zu aktualisieren, die jetzt in Summe 100 ergeben.

Häufige Fehler und Lösungen

  • Fehler: Die Summe der Zufallszahlen ist nicht 100.

    • Lösung: Stelle sicher, dass der VBA-Code korrekt eingegeben wurde und dass du die richtigen Formeln in den Zellen A2 und B2 verwendest.
  • Fehler: Excel zeigt einen #DIV/0!-Fehler an.

    • Lösung: Überprüfe, ob die Anzahl in D2 korrekt eingegeben wurde und mindestens 1 beträgt.

Alternative Methoden

Falls du keine VBA-Lösung verwenden möchtest, kannst du auch die Funktion Zufallszahl in Kombination mit den Funktionen RANG und SUMMEWENN nutzen, um die Zufallszahlen zu normalisieren. Diese Methode ist jedoch weniger flexibel und erfordert mehr manuelle Anpassungen.


Praktische Beispiele

  • Beispiel 1: Generiere 5 Zufallszahlen, deren Summe 100 beträgt.

    • Setze D2 auf 5 und beobachte, wie die Werte in C2 bis C6 aktualisiert werden.
  • Beispiel 2: Experimentiere mit verschiedenen Werten in D2 und achte darauf, dass die Summe der Zufallszahlen stets 100 bleibt.


Tipps für Profis

  • Nutze die Funktion Zufallszahl() in Kombination mit den Funktionen RUNDEN oder GANZZAHL, wenn du nur Ganzzahlen zwischen 1 und 100 generieren möchtest.
  • Du kannst die Daten validieren, um sicherzustellen, dass die Zufallszahlen immer im gewünschten Bereich liegen, indem du Bedingungen hinzufügst.

FAQ: Häufige Fragen

1. Wie kann ich sicherstellen, dass alle Zufallszahlen ungleich Null sind? Um sicherzustellen, dass alle Zufallszahlen ungleich Null sind, kannst du die Formel in A2 anpassen, indem du =Zufallszahl()*99 + 1 verwendest. Dadurch wird jede Zufallszahl zwischen 1 und 100 generiert.

2. Funktioniert diese Methode in allen Excel-Versionen? Ja, die beschriebenen Schritte sollten in den meisten modernen Excel-Versionen funktionieren, die die Funktion Zufallszahl() unterstützen.

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige