Microsoft Excel

Herbers Excel/VBA-Archiv

Bewerten Sie hier bitte das Excel-Portal

Der kurze Weg zum Ziel: Auftragsprogrammierung

Kombinatorik

Betrifft: Kombinatorik von: Ferdinand
Geschrieben am: 12.09.2004 20:18:58

Hallo
Vieleicht kann mir einer helfen
Ich möchte eine Tabelle mit 24 Spalten erstellen . Aus diesen 24 Spalten ergibt sich dann die Summe .Dabei sollen alle Möglichkeiten aus 6 Zahlen zB. 20 40 60 80 100 120 kombiniert werden die
eine vorgegebene Summe zB.500 ergeben .Da sich nicht immer die gleiche Summe
beim Summieren ergibt sollte ein Delta von +-20 varriable mit berüchsichtigt werden . Es sollen alle Möglichkeiten in der Tabelle dargestellt werden .
Ich hoffe ich habe mich sinnvoll ausgedrückt.

Mit besten Dank im voraus

  


Betrifft: AW: Kombinatorik von: Bert
Geschrieben am: 12.09.2004 20:57:47

Lad doch mal eine mit Werten gefüllte Mappe hoch.

Bert


  


Betrifft: AW: Kombinatorik von: Ferdinand
Geschrieben am: 12.09.2004 21:58:05

Hier die hochgeladene Mappe1
Ich das du das gemeint hast


  


Betrifft: Keine Mappe da! oT von: Bert
Geschrieben am: 12.09.2004 22:06:56

b


  


Betrifft: AW: Keine Mappe da! oT von: Ferdinand
Geschrieben am: 12.09.2004 22:18:54

Noch ein Versuch zu Mappe 1
Hoffe hat geklappt


  


Betrifft: AW: Keine Mappe da! oT von: Ferdinand
Geschrieben am: 12.09.2004 22:19:35

Noch ein Versuch zu Mappe 1
Hoffe hat geklappt


  


Betrifft: AW: Keine Mappe da! oT von: Ferdinand
Geschrieben am: 12.09.2004 22:24:28

Hoffe hat jetz gekappt


  


Betrifft: AW: Noch keine Mappe da! oT von: Bert
Geschrieben am: 12.09.2004 22:34:18

ot


  


Betrifft: AW: Keine Mappe da! oT von: Ferdinand
Geschrieben am: 12.09.2004 22:47:19

Upload nicht möglicht
Kommt immer ungültiger Dateiname
Kannst du mir einen Tipp geben wie's geht


  


Betrifft: AW: Keine Mappe da! oT von: Ferdinand
Geschrieben am: 12.09.2004 22:50:58

Kommt immer Upload nicht möglich
Kannst du mir helfen wie es geht


  


Betrifft: AW: Keine Mappe da! oT von: Bert
Geschrieben am: 12.09.2004 23:00:14

Dateiname kurz ohne Sonder- und Leerzeichen, z.B. test.xls
Pfad darf nicht zu tief geschachtelt sein, am besten C:\test.xls

Heute passiert bei mir sowieso nichts mehr.

Bert


  


Betrifft: AW: Keine Mappe da! oT von: Ferdinand
Geschrieben am: 12.09.2004 23:07:09

Jetzt hats geklappt
Hoffe das ist es was du gemeint hast


  


Betrifft: Du musst den Link angeben! - o. T. von: Björn B.
Geschrieben am: 13.09.2004 01:56:05




  


Betrifft: AW: Keine Mappe da! oT von: Ferdinand
Geschrieben am: 13.09.2004 16:00:02

https://www.herber.de/bbs/user/10846.xls
Eine Beispielmappe ist in den angegebenen Pfad hinterlegt


  


Betrifft: AW: Keine Mappe da! oT von: Ferdinand
Geschrieben am: 12.09.2004 23:04:02

Kann Mappe nicht uploaden kommt immer Dateiname ungültigt
Kannst du mir helfen wie's geht
Mach so was zum ersten Mal


  


Betrifft: AW: Kombinatorik von: th.heinrich
Geschrieben am: 12.09.2004 21:35:56

hi Ferdinand,

dies scheint nicht so einfach zu sein wie Du diesem thread, gefunden ueber SERVICES-VOLLTEXTSUCHE, entnehmen kannst.

https://www.herber.de/forum/archiv/72to76/t75540.htm

gruss thomas


  


Betrifft: AW: Kombinatorik von: nighty
Geschrieben am: 13.09.2004 10:36:41

hi ferdinand :)

vielleicht hilfreich :)

gruss nighty

Sub makro1()

Rem 20 festzahlen werden gebraucht in 5 schritten bis 100.daher ein feld auf 20 dimensioniert

Dim zahlen%(20)

Rem 20 festzahlen in 5 schritten bis hundert werden festgehalten in dem zuvor dimensionierten array

For tt1% = 0 To 20
zahlen%(tt1%) = tt1% * 5
Next tt1%

Rem 7 wiederholungsschleifen bzw.7 platzhalter

For feld7% = 0 To 20
For feld6% = 0 To 20
For feld5% = 0 To 20
For feld4% = 0 To 20
For feld3% = 0 To 20
For feld2% = 0 To 20
For feld1% = 0 To 20

Rem bei einem wert von 100 wird die var zeile um eins addiert

If zahlen%(feld1%) + zahlen%(feld2%) + zahlen%(feld3%) + zahlen%(feld4%) + zahlen%(feld5%) + zahlen%(feld6%) + zahlen%(feld7%) = 100 Then
zeile = zeile + 1
End If

Next feld1%
Next feld2%
Next feld3%
Next feld4%
Next feld5%
Next feld6%
Next feld7%
End Sub