Zufällig Differenz von Wertepaaren bilden

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Benutzer

Hallo Tom,
um alle Kombinationen geordnet auflisten zu lassen:
Tabelle1

	A	B	C	D	E
1	1	100		1	100
2	2	101		1	101
3	3	102		1	102
4	4	103		1	103
5	5	104		1	104
6	6	105		1	105
7	7	106		1	106
8	8	107		1	107
9	9	108		1	108
10	10	109		1	109
11	11	110		1	110
12	12	111		1	111
13	13	112		1	112
14	14	113		1	113
15	15	114		1	114
16	16	115		1	115
17	17	116		1	116
18	18	117		1	117
19	19	118		1	118
20	20	119		1	119
21				2	100
22				2	101
23				2	102
24				und so weiter..

Zelle	Formel
D1	=INDEX($A$1:$A$20;ABRUNDEN((ZEILE()-1)/20;)+1)
E1	=INDEX($B$1:$B$20;ZEILE()-ABRUNDEN((ZEILE()-1)/20;)*20)
D2	=INDEX($A$1:$A$20;ABRUNDEN((ZEILE()-1)/20;)+1)
E2	=INDEX($B$1:$B$20;ZEILE()-ABRUNDEN((ZEILE()-1)/20;)*20)
D3	=INDEX($A$1:$A$20;ABRUNDEN((ZEILE()-1)/20;)+1)
E3	=INDEX($B$1:$B$20;ZEILE()-ABRUNDEN((ZEILE()-1)/20;)*20)
D4	=INDEX($A$1:$A$20;ABRUNDEN((ZEILE()-1)/20;)+1)
E4	=INDEX($B$1:$B$20;ZEILE()-ABRUNDEN((ZEILE()-1)/20;)*20)
D5	=INDEX($A$1:$A$20;ABRUNDEN((ZEILE()-1)/20;)+1)
E5	=INDEX($B$1:$B$20;ZEILE()-ABRUNDEN((ZEILE()-1)/20;)*20)
D6	=INDEX($A$1:$A$20;ABRUNDEN((ZEILE()-1)/20;)+1)
E6	=INDEX($B$1:$B$20;ZEILE()-ABRUNDEN((ZEILE()-1)/20;)*20)
D7	=INDEX($A$1:$A$20;ABRUNDEN((ZEILE()-1)/20;)+1)
E7	=INDEX($B$1:$B$20;ZEILE()-ABRUNDEN((ZEILE()-1)/20;)*20)
D8	=INDEX($A$1:$A$20;ABRUNDEN((ZEILE()-1)/20;)+1)
E8	=INDEX($B$1:$B$20;ZEILE()-ABRUNDEN((ZEILE()-1)/20;)*20)
D9	=INDEX($A$1:$A$20;ABRUNDEN((ZEILE()-1)/20;)+1)
E9	=INDEX($B$1:$B$20;ZEILE()-ABRUNDEN((ZEILE()-1)/20;)*20)
D10	=INDEX($A$1:$A$20;ABRUNDEN((ZEILE()-1)/20;)+1)
E10	=INDEX($B$1:$B$20;ZEILE()-ABRUNDEN((ZEILE()-1)/20;)*20)
D11	=INDEX($A$1:$A$20;ABRUNDEN((ZEILE()-1)/20;)+1)
E11	=INDEX($B$1:$B$20;ZEILE()-ABRUNDEN((ZEILE()-1)/20;)*20)
D12	=INDEX($A$1:$A$20;ABRUNDEN((ZEILE()-1)/20;)+1)
E12	=INDEX($B$1:$B$20;ZEILE()-ABRUNDEN((ZEILE()-1)/20;)*20)
D13	=INDEX($A$1:$A$20;ABRUNDEN((ZEILE()-1)/20;)+1)
E13	=INDEX($B$1:$B$20;ZEILE()-ABRUNDEN((ZEILE()-1)/20;)*20)
D14	=INDEX($A$1:$A$20;ABRUNDEN((ZEILE()-1)/20;)+1)
E14	=INDEX($B$1:$B$20;ZEILE()-ABRUNDEN((ZEILE()-1)/20;)*20)
D15	=INDEX($A$1:$A$20;ABRUNDEN((ZEILE()-1)/20;)+1)
E15	=INDEX($B$1:$B$20;ZEILE()-ABRUNDEN((ZEILE()-1)/20;)*20)
D16	=INDEX($A$1:$A$20;ABRUNDEN((ZEILE()-1)/20;)+1)
E16	=INDEX($B$1:$B$20;ZEILE()-ABRUNDEN((ZEILE()-1)/20;)*20)
D17	=INDEX($A$1:$A$20;ABRUNDEN((ZEILE()-1)/20;)+1)
E17	=INDEX($B$1:$B$20;ZEILE()-ABRUNDEN((ZEILE()-1)/20;)*20)
D18	=INDEX($A$1:$A$20;ABRUNDEN((ZEILE()-1)/20;)+1)
E18	=INDEX($B$1:$B$20;ZEILE()-ABRUNDEN((ZEILE()-1)/20;)*20)
D19	=INDEX($A$1:$A$20;ABRUNDEN((ZEILE()-1)/20;)+1)
E19	=INDEX($B$1:$B$20;ZEILE()-ABRUNDEN((ZEILE()-1)/20;)*20)
D20	=INDEX($A$1:$A$20;ABRUNDEN((ZEILE()-1)/20;)+1)
E20	=INDEX($B$1:$B$20;ZEILE()-ABRUNDEN((ZEILE()-1)/20;)*20)
D21	=INDEX($A$1:$A$20;ABRUNDEN((ZEILE()-1)/20;)+1)
E21	=INDEX($B$1:$B$20;ZEILE()-ABRUNDEN((ZEILE()-1)/20;)*20)
D22	=INDEX($A$1:$A$20;ABRUNDEN((ZEILE()-1)/20;)+1)
E22	=INDEX($B$1:$B$20;ZEILE()-ABRUNDEN((ZEILE()-1)/20;)*20)
D23	=INDEX($A$1:$A$20;ABRUNDEN((ZEILE()-1)/20;)+1)
E23	=INDEX($B$1:$B$20;ZEILE()-ABRUNDEN((ZEILE()-1)/20;)*20)

Tabellendarstellung in Foren

Gruß
David

Sub test() Dim i As Long Dim j As Long j = -1 For i = 0 To 399 If i Mod 20 = 0 Then j = j + 1 ActiveSheet.Range("a" & i + 1).Value = i Mod 20 ActiveSheet.Range("b" & i + 1).Value = (i + j) Mod 20 Next i End Sub

Beliebteste Forumthreads (12 Monate)

Zufällig Differenz von Wertepaaren bilden

6 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread