Kombinationen ermitteln die 2te
lanima
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
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
Anzeige