Office: (Office 2013) Ausgeben von möglichen Kombinationen aus Werten verschiedener Spalten in Excel 2013

Felix3030 · 14. August 2016

Hallo zusammen,

habe bereits einige Foren durchstöbert, bin bisher jedoch leider nicht fündig geworden.

Folgende Problemstellung für Excel 2013:
Ich habe vier verschiedene Spalten mit je unterschiedlicher Anzahl an Daten (siehe Anhang)

--> Bin auf der Suche nach einer Möglichkeit, wie mir Excel alle möglichen Kombinationen - bestehend je aus den Spalten A, B, C und D - ausgeben kann. Diese Ausgabe sollte bestenfalls ebenfalls in 4 Spalten erfolgen (siehe Anhang).

Ich hoffe, dass die Problemstellung so verständlich ist und bin dankbar für jede Hilfe.

Grüße

:)

EarlFred · 16. August 2016

Hallo,

so?
Code:

Option Explicit

Sub kombi()
'BEREICH UNTERHALB DER VORGABEN MUSS LEER SEIN!

Dim f1 As Long, m1 As Long, p1 As Long, q1 As Long
Dim f As Long, m As Long, p As Long, q As Long, i As Long

Dim fVarAusgabe As Variant

f1 = Cells(Rows.Count, 1).End(xlUp).Row - 3
m1 = Cells(Rows.Count, 2).End(xlUp).Row - 3
p1 = Cells(Rows.Count, 3).End(xlUp).Row - 3
q1 = Cells(Rows.Count, 4).End(xlUp).Row - 3

ReDim fVarAusgabe(1 To f1 * m1 * p1 * q1, 1 To 4)

For f = 1 To f1
For m = 1 To m1
For p = 1 To p1
For q = 1 To q1
i = i + 1
fVarAusgabe(i, 1) = Cells(f + 3, 1)
fVarAusgabe(i, 2) = Cells(m + 3, 2)
fVarAusgabe(i, 3) = Cells(p + 3, 3)
fVarAusgabe(i, 4) = Cells(q + 3, 4)
Next q
Next p
Next m
Next f

Range("F3").Resize(f1 * m1 * p1 * q1, 4).Value = fVarAusgabe

End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Grüße
EarlFred

Felix3030 · 16. August 2016

Hallo EarlFred,

danke für deinen Vorschlag.

Habe mich eben daran versucht, bin aber doch relativ schnell gescheitert.

Leider kenne ich mich mit diesen Makro-Codes rein gar nicht aus und habe eigentlich gehofft, dass das Problem mit einer Formel zu lösen ist...

Falls nicht, könntest du mir deinen Code evtl. in der angehängten Excel einrichten und mir das kurz und knapp dokumentieren?

In Summe müssten 600 Kombinationen möglich sein.

Danke im Voraus für die Bemühungen.

Grüße
Felix

EarlFred · 17. August 2016

Hallo Felix,

die Tabelle sieht ja jetzt auch anders aus, da greift der alte Code ins Leere.

Code:

Option Explicit

Sub kombi()
'BEREICH UNTERHALB DER VORGABEN MUSS LEER SEIN!

Dim f1 As Long, m1 As Long, p1 As Long, q1 As Long
Dim f As Long, m As Long, p As Long, q As Long, i As Long

Const cLngKopfzeilen As Long = 2

Dim fVarAusgabe As Variant

f1 = Cells(Rows.Count, 2).End(xlUp).Row - cLngKopfzeilen
m1 = Cells(Rows.Count, 3).End(xlUp).Row - cLngKopfzeilen
p1 = Cells(Rows.Count, 4).End(xlUp).Row - cLngKopfzeilen
q1 = Cells(Rows.Count, 5).End(xlUp).Row - cLngKopfzeilen

ReDim fVarAusgabe(1 To f1 * m1 * p1 * q1, 1 To 4)

For f = 1 To f1
For m = 1 To m1
For p = 1 To p1
For q = 1 To q1
i = i + 1
fVarAusgabe(i, 1) = Cells(f + cLngKopfzeilen, 2)
fVarAusgabe(i, 2) = Cells(m + cLngKopfzeilen, 3)
fVarAusgabe(i, 3) = Cells(p + cLngKopfzeilen, 4)
fVarAusgabe(i, 4) = Cells(q + cLngKopfzeilen, 5)
Next q
Next p
Next m
Next f

Range("G3").Resize(f1 * m1 * p1 * q1, 4).Value = fVarAusgabe

End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Grüße
EarlFred

Felix3030 · 17. August 2016

Hallo EarlFred,

nochmal danke für die Antwort.

Allerdings bekomme ich es auch mit diesem Code bekomme ich es leider nicht hin.

Sagen wir's mal so: Ich habe keinen blassen Schimmer wie und wo ich diesen Code anwenden bzw. eintragen soll...

Die Nutzung von Makros sind für mich absolutes Neuland.

Wäre super wenn jemand hier dokumentieren könnte wie ich mit diesem Code mein Problem lösen kann.

Danke + Gruß
Felix

DubWay · 17. August 2016

Hi Felix,
- Excel Arbeitsmappe öffnen
- Alt+F11 drücken -> VBA Editor
- Einfügen -> Modul
- Code in erstelltes Modul einfügen
- F5 drücken -> Code arbeitet alles ab
- dann Datei normal speichern und Warnung ignorieren oder als Excelarbeitsmappe mit Makros speichern, wenn du das Makro in der selben Mappe nochmal anwenden musst

Gruß Carsten

Felix3030 · 17. August 2016

Hallo Carsten,

perfekt - so habe ich es hinbekommen.

Danke an euch beide :-)

Office: (Office 2013) Ausgeben von möglichen Kombinationen aus Werten verschiedener Spalten in Excel 2013

Ausgeben von möglichen Kombinationen aus Werten verschiedener Spalten in Excel 2013

Ausgeben von möglichen Kombinationen aus Werten verschiedener Spalten in Excel 2013

Ausgeben von möglichen Kombinationen aus Werten verschiedener Spalten in Excel 2013

Ausgeben von möglichen Kombinationen aus Werten verschiedener Spalten in Excel 2013 - Similar Threads - Ausgeben Kombinationen Werten

Letzten Wert(Text!) einer Zeile ausgeben

Wartungstermine prüfen und ausgeben

Inhaltsgruppen ausgeben lassen?

Zellenwerte in Zellenbereich ausgeben mit Bedingungen

Stärkste Kombination berechnen/ausgeben

Kombinationen als Matrix ausgeben

Alle möglichen Kombinationen ausgeben