Makro für Lösung

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

18 mit 1,2,5,11

18.09.2016 21:08:24

Michael

noch die Datei

18.09.2016 21:17:06

Michael

AW: 18 mit 1,2,5,11

19.09.2016 00:03:27

alifa

ja, aber nicht nur

19.09.2016 15:29:06

Michael

AW: ja, aber nicht nur

19.09.2016 16:06:44

alifa

AW: ja, aber nicht nur

19.09.2016 16:43:48

Michael

AW: ja, aber nicht nur

19.09.2016 16:56:58

alifa

schau mal...

19.09.2016 18:28:30

Michael

AW: schau mal...

19.09.2016 20:23:28

alifa

ok, danke für die Rückmeldung,

19.09.2016 21:12:08

Michael

Option Explicit Sub rechnen() Dim a&, b&, c&, d& Dim z&, s&, s0& Dim aA, aE Dim o As Object, o2 As Object Set o = CreateObject("scripting.dictionary") Set o2 = CreateObject("scripting.dictionary") aA = Range("A1:C20") For a = 1 To 5 For b = 2 To 10 For c = 3 To 18 For d = 5 To 25 For z = 1 To 20 s0 = 0 For s = 1 To 3 If aA(z, s) = "a" Then s0 = s0 + a Else If aA(z, s) = "b" Then s0 = s0 + b Else If aA(z, s) = "c" Then s0 = s0 + c Else s0 = s0 + d End If End If End If Next If o(s0) = 0 Then o(s0) = 1 Next If o2(o.Count) = 0 Then o2(o.Count) = a & "," & b & "," & c & "," & d ' Stop Set o = CreateObject("scripting.dictionary") ' MsgBox o.Count Next Next Next Next z = 1 For Each aE In o2.keys Range("E" & z) = aE Range("F" & z) = o2(aE) z = z + 1 Next Range("E1").CurrentRegion.Sort Range("e1"), xlDescending End Sub

Hi Erhard,
da ist mir ein Fehler untergekommen! Mein erster Impuls war ja, Dich um die Tabelle mit den Kombinationen zu bitten, und dann hab ich's doch falsch abgeschrieben...
Na gut, wenn ich das ausbessere, bekomme ich auch Dein Ergebnis raus.
Aber: die Fragestellung war damit letztlich nur "halb" beantwortet, denn "gesucht sind die kleinsten Zahlen", und das Makro "merkt" sich nur das jeweils "erste" Auftreten einer bestimmten Anzahl unterschiedlicher Ergebnisse, und zwar das "erste" in der Reihenfolge der Schleifenabarbeitung.
Daß 1,2,5,14 (Summe daraus: 22) zwanzig Ergebnisse liefert, bedeutet nicht, daß nicht (rein hypothetisch) 1,2,7,9 (Summe daraus: 19) auch 20 liefern *könnte*. Es geht also letztlich um die Definition, was "kleinste Zahlen" sind.
Deshalb habe ich eine Kopie des Makros erstellt, die alle 20er-Ergebnisse ausspuckt, und siehe da, es gibt ein weiteres mit 22, nämlich 1,2,6,13 - beide sogar zweimal mit vertauschten c+d.
Datei anbei: https://www.herber.de/bbs/user/108260.xlsm
Schöne Grüße,
Michael
P.S.: wundere Dich nicht, daß jetzt statt abcd 1234 in den Zellen steht: ich hatte erhofft, daß der Algo dadurch etwas schneller wird. Das wird er auch, aber der Unterschied ist vernachlässigbar.

Beliebteste Forumthreads (12 Monate)

10 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

10
Beiträge zum Forumthread

Beiträge zu diesem Forumthread