Kombinationsmöglichkeiten auflisten

Hallo,
ich suche eine Lösung, wie ich alle Kombinationsmöglichkeiten aufliste, die sich aus zwei Spalten ergeben:
in Spalte A, Zeile 1 bis 99 stehen aufsteigend die Zahlen 1 bis 99
in Spalte B, Zeile 2 bis 99 stehen aufsteigend die Zahlen 102 bis 199
ALLE Kombinationsmöglichkeiten beginnen immer mit der 1.
Dann müssen alle weiteren Zahlen aus Spalte A (also 2 bis 99) immer mit allen Zahlen der Spalte B (also 102 bis 199) kombiniert werden.
Somit hat jede Kombination immer 100 Zeilen.
Ich habe noch nicht ausgerechnet wie viele Kombinationen das sind. Für die Zeilen 1 bis 5 habe ich jedoch bereits ein Ergebnismuster erstellt wie es aussehen könnte.
http://s1.bild.me/bilder/110417/3080832x.jpg
Besten Dank für eine Hilfe.
mfg

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo,
für eine alternative Lösung könnten wir versuchen, die Anzahl der Werte aus der Spalte B auf maximal 3 (oder 4) zu begrenzen.
Um dies zu erreichen wäre es zunächst einfach, die bestehende Lösung "neu zu sortieren". Jede Spalte ab der Spalte E von Zeile 1 bis 11 immer aufsteigend.
Ein aufgezeichnetes Makro für die Spalten E bis H (Tabellenname "PH_Makro") sieht so aus:
Sub aufsteigendsortieren() Range("E1:E11").Select ActiveWorkbook.Worksheets("PH_Makro").Sort.SortFields.Clear ActiveWorkbook.Worksheets("PH_Makro").Sort.SortFields.Add Key:=Range("E1"), _ SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _ xlSortTextAsNumbers With ActiveWorkbook.Worksheets("PH_Makro").Sort .SetRange Range("E1:E11") .Header = xlNo .MatchCase = False .Orientation = xlTopToBottom .SortMethod = xlPinYin .Apply End With Range("F1:F11").Select ActiveWorkbook.Worksheets("PH_Makro").Sort.SortFields.Clear ActiveWorkbook.Worksheets("PH_Makro").Sort.SortFields.Add Key:=Range("F1"), _ SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _ xlSortTextAsNumbers With ActiveWorkbook.Worksheets("PH_Makro").Sort .SetRange Range("F1:F11") .Header = xlNo .MatchCase = False .Orientation = xlTopToBottom .SortMethod = xlPinYin .Apply End With Range("G1:G11").Select ActiveWorkbook.Worksheets("PH_Makro").Sort.SortFields.Clear ActiveWorkbook.Worksheets("PH_Makro").Sort.SortFields.Add Key:=Range("G1"), _ SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _ xlSortTextAsNumbers With ActiveWorkbook.Worksheets("PH_Makro").Sort .SetRange Range("G1:G11") .Header = xlNo .MatchCase = False .Orientation = xlTopToBottom .SortMethod = xlPinYin .Apply End With Range("H1:H11").Select ActiveWorkbook.Worksheets("PH_Makro").Sort.SortFields.Clear ActiveWorkbook.Worksheets("PH_Makro").Sort.SortFields.Add Key:=Range("H1"), _ SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _ xlSortTextAsNumbers With ActiveWorkbook.Worksheets("PH_Makro").Sort .SetRange Range("H1:H11") .Header = xlNo .MatchCase = False .Orientation = xlTopToBottom .SortMethod = xlPinYin .Apply End With Range("I1").Select End Sub Wie können wir eine Schleife einbauen, dass hintereinander z. B. die Spalten E bis CY immer so sortiert werden.
Danke nochmal.
mfg

Sub t() Dim i As Long Application.ScreenUpdating = False With Worksheets("PH_Makro") With .Range("E1:AMN1") .Formula = "=$A$1" .Value = .Value End With With Range("E2:AMN11") .Formula = "=IF(MOD(MOD(ROUNDDOWN((COLUMN()-5)/(2^(ROW()-2)),0),2^(ROW()-1)),2)=0,$A2,$B2)" .Value = .Value End With For i = 5 To .Cells(1, Columns.Count).End(xlToLeft).Column .Sort.SortFields.Clear .Sort.SortFields.Add Key:=.Cells(1, i), _ SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _ xlSortTextAsNumbers .Sort.SetRange .Range(.Cells(1, i), .Cells(11, i)) .Sort.Header = xlNo .Sort.MatchCase = False .Sort.Orientation = xlTopToBottom .Sort.SortMethod = xlPinYin .Sort.Apply Next i End With End Sub

Beliebteste Forumthreads (12 Monate)

	A	B	C	D	E	F	G	H	I	J	K	L	M	N	O	P	Q	R	S	T	U
1	1				1	1	1	1	1	1	1	1	1	1	1	1	1	1	1	1	1
2	2	102			2	102	102	102	102	2	2	2	2	2	102	102	102	2	2	2	2
3	3	103			3	3	103	3	3	103	103	103	3	3	103	103	103	103	103	3	3
4	4	104			4	4	4	104	4	4	104	4	104	4	4	104	104	104	104	104	104
5	5	105			5	5	5	5	105	5	5	105	5	105	5	5	105	5	105	5	105
6	6	106
7	7	107
8	8	108
9	9	109
10	10	110
11	11	111

	A	B	C	D	E	F	G	H	I	J	K	L	M	N	O	P	Q	R	S	T	U
1	1				1	1	1	1	1	1	1	1	1	1	1	1	1	1	1	1	1
2	2	102			2	102	102	102	102	2	2	2	2	2	102	102	102	2	2	2	2
3	3	103			3	3	103	3	3	103	103	103	3	3	103	103	103	103	103	3	3
4	4	104			4	4	4	104	4	4	104	4	104	4	4	104	104	104	104	104	104
5	5	105			5	5	5	5	105	5	5	105	5	105	5	5	105	5	105	5	105
6	6	106
7	7	107
8	8	108
9	9	109
10	10	110
11	11	111

Kombinationsmöglichkeiten auflisten

14 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

14
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

	A	B	C	D	E	F	G	H	I	J	K	L	M	N	O	P	Q	R	S	T	U
1	1				1	1	1	1	1	1	1	1	1	1	1	1	1	1	1	1	1
2	2	102			2	102	102	102	102	2	2	2	2	2	102	102	102	2	2	2	2
3	3	103			3	3	103	3	3	103	103	103	3	3	103	103	103	103	103	3	3
4	4	104			4	4	4	104	4	4	104	4	104	4	4	104	104	104	104	104	104
5	5	105			5	5	5	5	105	5	5	105	5	105	5	5	105	5	105	5	105
6	6	106
7	7	107
8	8	108
9	9	109
10	10	110
11	11	111