Kombinationen per Array Makro einfügen
05.06.2020 11:54:35
MMXIIIMM
ich möchte alle möglichen dreier Kombinationen von 1-n Variablen (hier A - H) per Makro ausspucken lassen.
Der Code läuft, wenn man die Variablen per Hand im Makro einfügt.
Da ich aber gerne eine automatische Funktion hätte, die sich auf eine Zelle mit allen Variablen beruft, muss ich mir hier Hilfe suchen.
Die "händische" Formel sieht aktuell so aus und funktioniert:
vFeld = Array("A", "B", "C", "D", "E", "F", "G", "H")
Probiert habe ich bereits:
vFeld = Array(Worksheets("SKU Base").Range("H1"))
Leider kein Erfolg.
Hier der ganze Code:
Sub kmobi()
Dim vFeld As Variant
Dim i As Long, j As Long, k As Long
vFeld = Array(Worksheets("SKU Base").Range("H1"))
For i = LBound(vFeld, 1) To UBound(vFeld, 1) - 2
For j = i + 1 To UBound(vFeld, 1) - 1
For k = j + 1 To UBound(vFeld, 1)
Cells(Rows.Count, 1).End(xlUp).Offset(1).Resize(, 3).Value = Array(vFeld(i), vFeld(j), _
vFeld(k))
Next k
Next j
Next i
End Sub
https://www.herber.de/bbs/user/138043.xlsm
Wäre super wenn hier jemand eine Idee hat, wie ich die Werte aus H1 in den Code bekomme.
Danke vorab!