Irgendwie stehe ich grad vor einem riesigen Problem. Ich benötige eine Art Tool, in dem verschiedene Daten eingetragen werden können und diese dann in allen möglichen Kombinationen ausgegeben werden.
Solche Daten sähen z.B. so aus (wobei die Anzahl der Daten und die Spaltenzahl variieren):
Spalte A
A
B
C
D
Spalte B
1
2
3
4
5
6
Spalte C
X
Nun soll in einem neuen Sheet folgendes dabei rauskommen (die Daten sollen durch Leerzeichen verbunden werden, damit der Post hier nicht zu lang wird habe ich nich alle Ergebnisse aufgelistet):
1 A X
2 A X
3 A X
4 B X
5 A X
6 A X
A 1 X
B X 1
C X 5
D 1 X
X D 5
.
.
.
Dazu habe ich folgendes Makro gefunden:
Sub Kreuztabelle_umsetzen()
'SheetNamen evt. anpassen
sn1 = "Tabelle1"
sn2 = "Tabelle2"
nzeile = 1
'letze Zeilen ermitteln
lZeileA = Sheets(sn1).Cells(65536, 1).End(xlUp).Row
lZeileB = Sheets(sn1).Cells(65536, 2).End(xlUp).Row
lZeileC = Sheets(sn1).Cells(65536, 3).End(xlUp).Row
lZeileD = Sheets(sn1).Cells(65536, 4).End(xlUp).Row
lZeileE = Sheets(sn1).Cells(65536, 5).End(xlUp).Row
' spalteninhalte löschen
Sheets(sn2).Columns(1).ClearContents
'NullSpalte abfangen
If lZeileA
Das funktioniert an sich super, nur gibt es mir nicht alle Daten, bzw. es vertauscht die Spalten nicht, um wirklich alle Möglichkeiten auszugeben. Es gibt mir nur die Reihenfolge "Spalte A Spalte B Spalte C".
Kann mir dabei vielleicht jemand helfen? VBA Kenntnisse sind leider kaum vorhanden...
Vielen Dank schonmal im Voraus & Beste Grüße,
Marie