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

Kombinationen ermitteln
lanima
Hallo zusammen,
ich habe mal wieder ein Problem welches für mich nicht lösbar ist.
Ich benötige eine Funktion:
Ich habe 2 Werte in den Feldern A1 und B1 und einen Zielwert im Feld C1.
Ich möchte im Feld D1 ein "X" wenn irgendeine Summenkombination aus den Feldern A1 und B1 dem Zielwert entschricht.
Dabei können die Felder auch mehrmals und mit sich selber summiert werden.
Beispiel:
Feld A = 90, Feld B = 20, Feld C = 240
Eine mögliche Kombination wäre 90 +90 +20 +20 +20 = 240
Dabei ist es völlig egal wieviele Kombinationen es geben kann, wenn eine gefunden wurde dann "X" in D1.
Ich hoffe, es ist einigermaßen verständlich
Vielen Dank für die Mühe.
Martin

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Kombinationen ermitteln
03.12.2010 18:29:00
ransi
Hallo lamina
HAllo Martin
Mal ein Bischen gebastelt:
Tabelle1

 ABCDE
1erste_Zahlzweite_zahldie_Zahl  
290202400*90+12*20=240 
3885529907  
4959793919*95+88*97=9391 
593921053244*93+70*92=10532 
648645373  
73465135232*34+207*65=13523 
86247854415*62+162*47=8544 
9363212690  
1069291006811*69+321*29=10068 
1138160511*3+2006*8=16051 
12262012427*26+53*20=1242 
1368343667  
1425281964214*25+689*28=19642 
15565797398*56+163*57=9739 
162167307522*21+39*67=3075 
178655194055*86+345*55=19405 
18947839051  
1988662275  
2030853509  
21     

Formeln der Tabelle
ZelleFormel
D2=machs(C2;A2;B2)


Excel Tabellen im Web darstellen >> Excel Jeanie HTML 4
Und damit das funktioniert muss dieser keline Code in ein Modul:
' **********************************************************************
' Modul: Modul1 Typ: Allgemeines Modul
' **********************************************************************

Option Explicit


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


ransi
Anzeige
AW: Kombinationen ermitteln
06.12.2010 07:08:44
lanima
Hallo Ransi,
entschuldige das ich mich jetzt erst melde.
Das funzt hundertprozentig, vielen Dank.
Gruß Martin

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige