Aus Matrix von 51 Kriterien die richtige Zeile finden

[metabolica]

Hey Leute,

der Ansatz den Ihr hier beschrieben habt war super, das Problem ist nun nur, dass das mit dem Textverketten doch nicht funktioniert..

Das Problem ist, dass die Kriterien exakt deckungsgleich sein müssen. Sobald jedoch in dem ersten Reiter ein optionales Kriterium angekreuzt ist, funktioniert der Abgleich nicht mehr. Es ist meines WIssens nach nicht möglich, einige Kriterien als "optional" anzugeben, oder?

Auch dafür habe ich keine Lösung und wollte Euch fragen, ob Ihr eventuell wisst, wie man das lösen kann. Also eine Funktion, die herausfindet, welche am ehesten deckungsgleich sind und welche Grundvergütung (im Beispiel) sich daraus ableitet.

VG Leo

[Gast 123]

Hallo

ich habe eine Datei mit Makro Lösung hochgeladen. Am besten mal Originaldaten ins Beispiel kopieren und schauen ob das Ergebniss zufriedenstellend hinkommt.  Von snb gibt es bereits eine bessere Lösung, auf meinem Rechner funktioniert sein Makro leider nicht.   Bei langen Daten wird man Makro laenger dauern.  Die Frage ist ob das stört, wenn es gut funktioniert??  

Die erste Auswertung vergleicht ob in Tabelle2 und in der Matrix alle "x" und "(x)" Werte in jeder Spalte exakt gleich sind. Nur dann wird aufgelistet.  Die zweite Auswertung prüft ob alle "x" Werte stimmen, akzeptiert wenn "(x)" nicht übereinstimmen.  Man sieht es in Tabelle4, weil das Ergebnis in Spalte A in () Klammern steht, und Schriftfarbe Rosa hat.

Zum Prüfen liste ich zur Zeit noch den Text aus Spalte B mit auf, diese Marozeilen kann man spaeter lsöchen.
Würde mich sehr freuen wenn meine Idee mit dazu beitraegt das Auswerte Problem endlich zu lösen.

mfg  Gast 123

[Der Steuerfuzzi]

@ metabolica:
Hast Du die Bankenversion von Excel? Oder gibt es die wirklich? :05:

[snb]

@Gast 123

Sheeet1 umwandeln in Sayfa1

Code:

Sub M_snb()
    sn = Sayfa1.Cells(1).CurrentRegion
    sp = Sayfa2.Cells(1).CurrentRegion
    
    ReDim sq(UBound(sp))
    For j = 2 To UBound(sp)
       sq(j - 2) = Replace(Replace(Join(Application.Index(sp, j), "|"), "|", "_", , 1), "|", "_|", , 1)
    Next
    
    For j = 2 To UBound(sn)
       sn(j, 3) = Replace(Join(Filter(Split(Filter(sq, "_|" & Split(Replace(Join(Application.Index(sn, j), "|"), "|", "_", , 2), "_")(2))(0), "|"), "_")), "_", " ")
    Next
    
    Sayfa3.Cells(40, 1).Resize(UBound(sn), 3) = sn
End Sub

[Käpt'n Blaubär]

Hallo,

[Spaßmodus an]
      WOW. snb kann auch Mehrzeiler. Ich bin begeistert.
[Spaßmodus aus]

[snb]

@Kapt

Deine Begeisterung war meine Enttäuschung..  :22:

[Käpt'n Blaubär]

Hallo snb,

meine Begeisterung ist durchaus echt.
Ein Code, der ohne Knoten im Hirn nachvollzogen werden konnte.

Ich bin ja nicht der Einzige, dem das Begreifen Deiner Einzeiler schwerfällt.
Nichts desto trotz, vielleicht hilft es Dir, die Enttäuschung in Grenzen zu halten,
wenn ich Dich daran erinnere, daß ich Dich schon einige Male an geeigneter
Stelle als "Ausnahmekünstler" bezeichnet habe.
Und auch damit bin ich nicht der Einzige.

Und so schlimm sollte mein Verbrechen ja auch wirklich nicht sein, hoffe ich.
Ich bin nämlich ein Fan von Dir und weiß, ich könnte niemals so programmieren.