Thema Datum  Von Nutzer Rating
Antwort
06.05.2014 11:38:44 Alexandra
NotSolved
06.05.2014 18:44:05 Gast74905
NotSolved
06.05.2014 19:31:31 Gast38842
NotSolved
06.05.2014 21:48:25 Gast28128
NotSolved
07.05.2014 13:24:22 Alexandra
NotSolved
07.05.2014 13:30:48 Gast58804
NotSolved
Rot Alle Kombinationen von Prozentzahlen, welche zur Summe 100% aufaddieren
19.05.2014 13:06:36 Alexandra
NotSolved
19.05.2014 13:58:54 Gast21594
NotSolved
19.05.2014 15:03:45 Alexandra
NotSolved
19.05.2014 15:45:22 Gast71514
NotSolved

Ansicht des Beitrags:
Von:
Alexandra
Datum:
19.05.2014 13:06:36
Views:
1448
Rating: Antwort:
  Ja
Thema:
Alle Kombinationen von Prozentzahlen, welche zur Summe 100% aufaddieren

Hallo liebe(r) Gast/Gäste

Ich habe mit viel Mühe und Internetrecherche folgendes erreicht:

Sub random_number()

Dim Default(9) As Integer
Dim i As Integer

For i = 1 To 6561 '6561 combinations

Randomize
    Sheets("combinations4").Cells(i, 1) = Math.Round(Int((100 - 20 + 1) * Rnd + 20) / 10) * 10 'Int((Obergrenze - Untergrenze + 1) * Rnd + Untergrenze)
    Sheets("combinations4").Cells(i, 2) = Math.Round(Int((100 - 20 + 1) * Rnd + 20) / 10) * 10 'Int((Obergrenze - Untergrenze + 1) * Rnd + Untergrenze)
    Sheets("combinations4").Cells(i, 3) = Math.Round(Int((100 - 20 + 1) * Rnd + 20) / 10) * 10 'Int((Obergrenze - Untergrenze + 1) * Rnd + Untergrenze)
    Sheets("combinations4").Cells(i, 4) = Math.Round(Int((100 - 20 + 1) * Rnd + 20) / 10) * 10 'Int((Obergrenze - Untergrenze + 1) * Rnd + Untergrenze)

Next i

'For i = 1 To 6561

If Sheets("combinations4").Cells(i, 5).Value > 100 Then

    Do

    Randomize
    Sheets("combinations4").Cells(i, 1) = Math.Round(Int((100 - 20 + 1) * Rnd + 20) / 10) * 10 'Int((Obergrenze - Untergrenze + 1) * Rnd + Untergrenze)
    Sheets("combinations4").Cells(i, 2) = Math.Round(Int((100 - 20 + 1) * Rnd + 20) / 10) * 10 'Int((Obergrenze - Untergrenze + 1) * Rnd + Untergrenze)
    Sheets("combinations4").Cells(i, 3) = Math.Round(Int((100 - 20 + 1) * Rnd + 20) / 10) * 10 'Int((Obergrenze - Untergrenze + 1) * Rnd + Untergrenze)
    Sheets("combinations4").Cells(i, 4) = Math.Round(Int((100 - 20 + 1) * Rnd + 20) / 10) * 10 'Int((Obergrenze - Untergrenze + 1) * Rnd + Untergrenze)

    Loop While Sheets("combinations4").Cells(1, 5).Value = 100

Else

End If

End Sub

So erhalte ich 4 Zahlen nebeneinander und sie sind auch zwischen 20 und 100 in 10ner-Schritten. Leider funktioniert der Do - While - Loop nicht so wie ich möchte und die Zahlen werden nicht wieder neu zusammengewürfelt bis sie genau als Summe 100 ergeben. Die 5te Spalte (E) zeigt nämlich die Summe der 4 Zahlen an die in Spalte A-D sind (manuell mit Formel eingegeben und nicht programmiert). Das allein wird wohl auch nicht ausreichen. Ich muss irgendwie noch einbauen, dass keine Zeile die gleiche Kombination hat. Es sollten ja genau 6561 Kombinationen sein.

Könnt Ihr (oder der letzte sehr hilfreiche Gast) mir wieder weiterhelfen?

Vielen Dank!

 

Lieber Gruss

Alexandra

 


Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
06.05.2014 11:38:44 Alexandra
NotSolved
06.05.2014 18:44:05 Gast74905
NotSolved
06.05.2014 19:31:31 Gast38842
NotSolved
06.05.2014 21:48:25 Gast28128
NotSolved
07.05.2014 13:24:22 Alexandra
NotSolved
07.05.2014 13:30:48 Gast58804
NotSolved
Rot Alle Kombinationen von Prozentzahlen, welche zur Summe 100% aufaddieren
19.05.2014 13:06:36 Alexandra
NotSolved
19.05.2014 13:58:54 Gast21594
NotSolved
19.05.2014 15:03:45 Alexandra
NotSolved
19.05.2014 15:45:22 Gast71514
NotSolved