---

Hallo

Gibt es in Excel eine Möglichkeit, die 6 Zahlenkombinationen von den Zahlen 1 bis 45 zu ermitteln die eine Quersumme von zB. 170 haben?

------------------
Mit freundlichen Grüßen

CADdoctor

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo CADdoctor,
ich denke nicht, dass es eine direkte Lösung bzw Formel dafür gibt, daher würde ich entweder mit einem Makro arbeiten, bei dem der Aufwand eher gering sein dürfte, wenn man sich damit auskennt, oder eine Matrix mit "45*45/6"*6 Feldern bilden und dann via "wenn"-Abfrage immer 6 Felder abfragen. Ob die Logik der Matrix, die sich in meinem Kopf gerade spontan gebildet hat, hinhaut, kann ich im Moment leider nicht prüfen  

Ergänzung: Eigentlich müssten es ja 45^6 Möglichkeiten geben...

------------------
MFG
Rick Schulz
          Nettiquette (CAD.de)  -  Was ist die Systeminfo?  -  Wie man Fragen richtig stellt.  -  Unities

[Diese Nachricht wurde von RSchulz am 09. Aug. 2010 editiert.]

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Morgen,

wie kommst Du darauf dass es da nur 6 Stück gibt? Ich würde da sehr viel mehr erwarten.

Um eine Quersumme von 170 zu erreichen benötige ich hier übrigens mindestens 19 (!) Zahlen:

8,9,17-19,25-29,34-39,43-45.

Nachtrag: Maximal übrigens 34 Stück: 1-8,10-17,20-26,30-35,40-44.

CU, Bernd

[Diese Nachricht wurde von bst am 10. Aug. 2010 editiert.]

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Guten Morgen!

Mir ist klar, dass es mehr als 6 Stellen geben muß!
Es sollen aber nur 6 Stellen im Zahlenbereich von 1 bis 45 sein!

Bsp.:

3,25,29,30,41,42 = 170
3,12,31,39,42,43 = 170
7,13,32,33,41,44 = 170
2,20,29,38,39,42 = 170
6,26,27,34,35,42 = 170
8,12,34,35,38,43 = 170
13,21,22,35,37,42 = 170
3,28,29,31,36,43 = 170
12,16,21,39,40,42 = 170
7,17,33,34,39,40 = 170
13,14,24,37,39,43 = 170
5,25,32,33,36,39 = 170
3,27,32,34,35,39 = 170
6,10,32,39,40,43 = 170
19,20,22,34,35,40 = 170
3,14,33,35,42,43 = 170
3,25,31,34,35,42 = 170
3,11,34,39,41,42 = 170
13,20,28,33,34,42 = 170
8,21,27,33,40,41 = 170
6,7,36,38,41,42 = 170
8,10,33,36,41,42 = 170
3,20,33,34,38,42 = 170
17,22,29,30,34,38 = 170

------------------
Mit freundlichen Grüßen

CADdoctor

[Diese Nachricht wurde von CADdoctor am 10. Aug. 2010 editiert.]

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

 

Zitat:

---

Original erstellt von bst:
Morgen,

wie kommst Du darauf dass es da nur 6 Stück gibt? Ich würde da sehr viel mehr erwarten.

Um eine Quersumme von 170 zu erreichen benötige ich hier übrigens mindestens 19 (!) Zahlen:

8,9,17-19,25-29,34-39,43-45.

Nachtrag: Maximal übrigens 34 Stück: 1-8,10-17,20-26,30-35,40-44.

CU, Bernd

[Diese Nachricht wurde von bst am 10. Aug. 2010 editiert.]

---

  Über die Sinnhaftigkeit der Aufgabenstellung habe ich mir auch keine Gedanken gemacht   Eigentlich nur über die Aufgabenstellung an sich und da wären es bei einer 6er Zahlenkombination von 1-45 45^6 Kombinationen.

------------------
MFG
Rick Schulz
          Nettiquette (CAD.de)  -  Was ist die Systeminfo?  -  Wie man Fragen richtig stellt.  -  Unities

[Diese Nachricht wurde von RSchulz am 10. Aug. 2010 editiert.]

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hi,

das ist aber keine Quersumme sondern eine Summe.

Die Quersumme von 45 ist denn 4+5 = 9.

CU, Bernd
--
Das ergibt hier ca. 62.621 Lösungen.

Code:

---

Option Explicit

Sub x()
  Dim a%, b%, c%, d%, e%, f%, i&
 
  For a = 1 To 45
      For b = a + 1 To 45
        For c = b + 1 To 45
            For d = c + 1 To 45
              For e = d + 1 To 45
                  For f = e + 1 To 45
                    If a + b + c + d + e + f = 170 Then
                        i = i + 1
                        Cells(i, 1).Resize(, 6) = Array(a, b, c, d, e, f)
                    End If
                  Next
              Next
            Next
        Next
      Next
  Next
End Sub

---

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Mist, zu spät. Bin auf den exakt gleichen Lösungsweg auch gekommen, musste nur zwischendurch noch was "richtiges" tun  

Berechnung läuft noch - mal sehn, ob ich auf die gleiche Anzahl Varianten komme...

edit:
Korrekt, es gibt 62621 Varianten.

------------------
Seit Pro/E Version 1 dabei, auwei...

[Diese Nachricht wurde von carsten-3m am 10. Aug. 2010 editiert.]

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Danke bst!

Funktioniert sehr gut!

------------------
Mit freundlichen Grüßen

CADdoctor

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Kann Ich bei der For Next Schleife auch Zahlen ausschließen?

zB.: für a = 1 bis 45 ausser 12, 23 und 37

------------------
Mit freundlichen Grüßen

CADdoctor

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

  

Zitat:

---

Original erstellt von CADdoctor:
Kann Ich bei der For Next Schleife auch Zahlen ausschließen?

zB.: für a = 1 bis 45 ausser 12, 23 und 37

---

Hier der Code...

Code:

---

Sub x()
  Dim a%, b%, c%, d%, e%, f%, i&
 
  For a = 1 To 45
     If a = 12 Or a = 23 Or a = 27 Then GoTo Next_A
     For b = a + 1 To 45
        If b = 12 Or b = 23 Or b = 27 Then GoTo Next_B
        For c = b + 1 To 45
            If c = 12 Or c = 23 Or c = 27 Then GoTo Next_C
            For d = c + 1 To 45
              If d = 12 Or d = 23 Or d = 27 Then GoTo Next_D
              For e = d + 1 To 45
                  If e = 12 Or e = 23 Or e = 27 Then GoTo Next_E
                  For f = e + 1 To 45
                    If f = 12 Or f = 23 Or f = 27 Then GoTo Next_F
                    If a + b + c + d + e + f = 170 Then
                        i = i + 1
                        Cells(i, 1).Resize(, 6) = Array(a, b, c, d, e, f)
                    End If
Next_F:
                  Next
Next_E:
               Next
Next_D:
            Next
Next_C:
         Next
Next_B:
      Next
Next_A:
  Next
End Sub

---

Ich bin aber der Meinung, dass der Code falsch ist und so aussehen müsste, da nur so alle Kombinationen abgefragt werden.

Code:

---

Sub x()
  Dim a%, b%, c%, d%, e%, f%, i&
 
  For a = 1 To 45
     If a = 12 Or a = 23 Or a = 27 Then GoTo Next_A
     For b = 1 To 45
        If b = 12 Or b = 23 Or b = 27 Then GoTo Next_B
        For c = 1 To 45
            If c = 12 Or c = 23 Or c = 27 Then GoTo Next_C
            For d = 1 To 45
              If d = 12 Or d = 23 Or d = 27 Then GoTo Next_D
              For e = 1 To 45
                  If e = 12 Or e = 23 Or e = 27 Then GoTo Next_E
                  For f = 1 To 45
                    If f = 12 Or f = 23 Or f = 27 Then GoTo Next_F
                    If a + b + c + d + e + f = 170 Then
                        i = i + 1
                        Cells(i, 1).Resize(, 6) = Array(a, b, c, d, e, f)
                    End If
Next_F:
                  Next
Next_E:
               Next
Next_D:
            Next
Next_C:
         Next
Next_B:
      Next
Next_A:
  Next
End Sub

---

Dem Code entsprechend reichen die 65536 Zeilen in einer Tabelle beim 32bit Excel nicht aus.
Aber vll. habe ich auch einen Gedankenfehler, daher frage ich einfach mal... Wieso B = A + 1... C = B + 1... usw.?

Ergänzung: Es gibt bei einer Zahlenkombination aus 6 Stellen von Wert je 1-45 (45^6) 8303765625 Kombinationen. Davon sollen nur etwas über 60000 zum Ergebnis 170 führen? Es sei denn man sieht nicht die Stellen in ihrer Reihenfolge, sondern nur die Zahlenkombination als solche.  Ich bin etwas durcheinander  Diese Zahlen in meinem Kopf sollen verschwinden 

------------------
MFG
Rick Schulz
           Nettiquette (CAD.de)  -  Was ist die Systeminfo?  -  Wie man Fragen richtig stellt.  -  Unities

[Diese Nachricht wurde von RSchulz am 12. Aug. 2010 editiert.]

[Diese Nachricht wurde von RSchulz am 12. Aug. 2010 editiert.]

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Seit Excel 2007 kann ein Tabellenblatt 1.048.576 Zeilen und 16.384 Spalten (A bis XFD), also 17.179.869.184 Zellen umfassen (Quelle: Wikipedia)

Es sollen in jeder Zeile die Zahlen von 1 bis 45 max. 1 mal vorkommen! 

------------------
Mit freundlichen Grüßen

CADdoctor

[Diese Nachricht wurde von CADdoctor am 12. Aug. 2010 editiert.]

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Morgen Rick,

Zitat:

---

Ich bin aber der Meinung, dass der Code falsch ist und so aussehen müsste, da nur so alle Kombinationen abgefragt werden.

---

Der Code ist nicht falsch, er macht nur etwas anderes.

Ich bestimme da Kombinationen ohne Zurücklegen, Du bestimmst Variationen mit Zurücklegen.

http://de.wikipedia.org/wiki/Kombinatorik

cu, Bernd

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP