Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1188to1192
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Kombinationen ermitteln die 2te

Kombinationen ermitteln die 2te
lanima
Hallo zusammen,
Ransi hat mir freundlicherweise diesen Code zu Verfügung gestellt:
Public Function machs(Die_Zahl, erste_Zahl, zweite_Zahl) As String
Dim A As Long
Dim B As Long
Dim C As Long
Dim D As Long
A = Int(Die_Zahl / erste_Zahl)
B = Int(Die_Zahl / zweite_Zahl)
For C = 0 To A
For D = 0 To B
If C * erste_Zahl + D * zweite_Zahl = Die_Zahl Then
machs = C & "*" & erste_Zahl & "+" & D & "*" & zweite_Zahl & "=" & Die_Zahl
Exit Function
End If
Next
Next
End Function
Der funktioniert auch perfekt.
Ich möchte diesen Code jetzt so umbauen daß immer die bestmögliche Kombination gefunden wird.
Beispiel:
Die_Zahl = 240
erste_Zahl = 104
zweite Zahl = 67
Mögliche Kombinationen:
104 + 104 = 208
104 + 67 + 67 = 238
67 +67 +67 = 201
Beste Kombination wäre die 2te, weil am dichtesten an 240.
Ich kriege das einfach nicht weiß jemand Rat?
Gruß
Martin

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Kombinationen ermitteln die 2te
09.12.2010 13:47:34
fcs
Hallo Martin,
etwa in die folgende Richtung. Das beste Ergebnis muss dann zwischengespeichert werden und die Differenz der aktuellen Kombination mit der Differenz der bis dato besten gefundennen Kombination verglichen werden.
Gruß
Franz
Public Function machs(Die_Zahl, erste_Zahl, zweite_Zahl) As String
Dim A As Long
Dim B As Long
Dim C As Long
Dim D As Long
Dim Diff As Long
Diff = Die_Zahl
A = Int(Die_Zahl / erste_Zahl)
B = Int(Die_Zahl / zweite_Zahl)
For C = 0 To A
For D = 0 To B
If C * erste_Zahl + D * zweite_Zahl  Die_Zahl - (C * erste_Zahl + D * zweite_Zahl) Then
Diff = Die_Zahl - (C * erste_Zahl + D * zweite_Zahl)
machs = C & "*" & erste_Zahl & "+" & D & "*" & zweite_Zahl & "=" & Die_Zahl -  _
Diff
End If
End If
Next
Next
End Function

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige