VBA - Kombinationen ermitteln | HERBERS Excel Forum

Katja567 · 2024-09-15T13:38:08+00:00

Liebe VBA-Profis, ich benötige Eure Hilfe: Ich möchte die Werte aus Tabellenblatt A in den Zeilen 10 und 13 vergleichen (beim Vergleich geht es von links nach rechts und dann nach unten...also wird wie folgt verglichen: D10 mit I10, D10 mit N10, D10 mit S10, D10 mit D13, D10 mit I13, D10 mit N13, D10 mit S13, I10 mit N10 usw.) und Kombinationen ermitteln. Die möglichen Kombinationen stehen in einer Tabelle im Tabellenblatt B. Eine Kombination kann dabei nur einmal erfolgen. Also z. B. kann die Kombination 10-W und 5+E nur durch die Einträge in N10 und S10 und nicht mehr durch N10 und S13 entstehen. Hier das Bildbeispiel für die Ursprungswerte: [Bild: Userbild] Und hier stehen die möglichen Kombinationen zu den jeweiligen Werten: [Bild: Userbild] Ich hoffe, Ihr könnt mir mit diesen Angaben helfen. Viele Grüße Katja

Hi Yal,

ganz herzlichen Dank für Deine Antwort.

Den Code werde ich mir auf jeden Fall mal merken, den kann ich bestimmt an der ein oder anderen Stelle mal gebrauchen. :-)

In diesem Fall hilft er mir leider nicht weiter. Ich habe daher nochmal in der Datei etwas ergänzt, um mein Anliegen besser verständlich zu machen. Über die Funktion Index mit Vergleich (s. Spalte T) kann ich die Kombinationen ermitteln bzw. bekomme ausgegeben, wenn keine Kombination vorhanden ist (#NV). Soweit ist das mit meinen Kenntnissen auch alles machbar. Nun ist das jedoch so, dass einmal verwendet der Wert nicht erneut verwendet werden darf (vergleichbar ein Mensch darf in Deutschland nur mit einem anderen Menschen verheiratet sein und nicht mit einem zweiten ;-)). Und hier komme ich in Excel an die Grenze, da ich die beiden Werte aus der Tabelle entfernen müsste, da sie verwendet wurden (s. grüne Markierung), dann dürfte sich im weiteren Schritt keine weitere Kombination ergeben (Zelle T24 müsste somit #NV sein und nicht 10-W / 5+E enthalten).

Userbild

https://www.herber.de/bbs/user/172208.xlsm

Ich hoffe, das macht es nochmal klarer.

Hallo Katja,

der gelieferte Code funktioniert. Er mag zwar nicht liefern, was Du erwartest, aber so richtig und genau mitteilen, was erwartet wird, scheinst Du nicht in der Lage zu sein. "Funktioniert nicht" bring niemand weiter. Und Gedanken kann ich nicht lesen.

Der gelieferte Code ist die einfachste Lösung, die es mit VBA geben kann. Du wirst noch ein paar Jahren brauchen, bis Du diese Einfachheit hinbekommst.

Letzter Versuch:
wenn Du diesen Code auf deutsch liest, wirst Du die Logik der Reihenfolge entdecken:
nehme der erster der Liste, kombiniere mit zweiter der Liste, dann dritte, ... bis letzter,
dann nehme zweite der Liste, kombiniere mit dritter, bis letzter,
so bis vorletzter, kombiniere mit letzter.

Wenn Du es schaffst, dein Anliegen auf diese Art und Weise zu beschreiben, dann kann es programmiert werden. Wenn Du nicht in der Lage bist, zu beschreiben was gemacht wird, dann wird weder Du noch irgendjemand in der Lage daraus einen funktionierenden Code zu schreiben. Und es liegt nicht an der VBA-Kompetenz, sondern in der Fähigkeit (kein Angst, durchaus erlernbar), ein Vorhaben in einzelnen Schritten zu zerteilen.

Ein noch einfacherer Code, jedoch ohne Prüfung der leeren Zeichenkette:

Public Function Kombiniere2(Liste, Optional Trenner = ";")

Dim i, j

Dim Erg



    Liste = Liste.Value

    If UBound(Liste, 2) > 1 Then Liste = Application.Transpose(Liste)

    

    Erg = Array()

    For i = 1 To UBound(Liste, 1) - 1

        For j = i + 1 To UBound(Liste, 1)

            ReDim Preserve Erg(UBound(Erg) + 1)

            Erg(UBound(Erg)) = Liste(i, 1) & Trenner & Liste(j, 1)

        Next

    Next

    Kombiniere2 = Erg

End Function

Noch einmal: wenn in A1 bis A3 die Werte A, B, C liegen, liefert
=kombiniere2(A1:A3;" -- ")

A -- B
A -- C
B -- C

Der Code muss in einem Modul liegen, aber ich gehe davon aus, dass Du es bereits genau gelesen hast.

VG
Yal

VBA - Kombinationen ermitteln

Forumthread: VBA - Kombinationen ermitteln

23
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

VBA - Kombinationen ermitteln

Forumthread: VBA - Kombinationen ermitteln

23 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

23
Beiträge zum Forumthread

Beiträge zu diesem Forumthread