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

?
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
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:
WYSIWYG-Editor, ctl00_Content_editor1



  • 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