Algorithmus für eine Kombination

[Maaxx]

Hallo zusammen,
 
ich habe folgendes Problem und zwar ich möchte in Excel ein Algorithmus mit Makro oder ohne entwerfen für eine Kombination aus 4 Zahlen.
Z.B.  ich habe folgende Zahlen 1, 13, 16, 20 ich muss rausfinden alle Kombinationen aber die Zahlen dürfen nur einmal vorkommen und die 1 bleibt konstant.
Hat jemand eine Idee wie soll ich an diese Aufgabe am besten herangehen? Ich stehe irgendwie auf dem Schlauch, kann mir jemand helfen?
 
Danke und LG
Max   
 

[Klaus-Dieter]

Hallo Max,

die Forensoftware ermöglicht eine noch kleinere Schrift, als die, die du verwendest.

[Maaxx]

Hallo Klaus-Dieter,

danke für schnelle Antwort, kannst Du mir bitte ein Link schicken wo ich sie finde?

LG
Max

[mmat]

Code:

Option Explicit
Option Base 1
Dim a, b() As Long, ub As Long

Sub kombi(p As Long, r As Long)
Dim n As Long, i As Long, skip As Boolean
 
 If (p > ub) Then
   For i = 1 To ub: Cells(r, i) = a(b(i)): Next
   r = r + 1
   Exit Sub
 End If
 
 For n = 1 To ub
   skip = False
   For i = 1 To p - 1
     If b(i) = n Then skip = True: Exit For
   Next
     
   If Not (skip) Then
     b(p) = n
     kombi p + 1, r
   End If
 Next
End Sub

Sub start()
Dim n As Long, r As Long
 Cells.ClearContents
 a = Array(1, 13, 16, 20)

 ub = UBound(a)
 ReDim b(ub)
 r = 1
 kombi 1, 1
End Sub

So geht das

[Maaxx]

Danke! Teste heute Abend. 

LG
Max