Hi, erstmal danke für die nette Antwort Gast52839.
Hier ist mein bis jetzt geschriebener Code für den ersten Teil.
Sub Kombinationen()
Dim a%, b%, c%, d%, x&, y&
x = 1
For a = 1 To 20
For b = a + 2 To 20
For c = b + 2 To 20
For d = c + 2 To 20
If y = 65536 Then
y = 0
x = x + 1
End If
y = y + 1
Cells(y, x) = a & "," & b & "," & c & "," & d & ","
Next d
Next c
Next b
Next a
End Sub
Problem dabei ist, dass er zwischen jeder Stelle immer 2 eine Zahl frei ist und gar keine auffeinanderfolgenden Zahlen ausgegeben werden.
Danke nochmal für Antworten.
|