Excel Kombinationen

[guerill4krieger]

Hallo Zusammen,
folgender Fall:
Ich habe 5 Konten. Konto A, B, C, D, E
Ich möchte nun (am besten per Excel) sämltiche kombinationen darstellen.

Kombi 1: A+B+C+D+E
Kombi 2: A+B+C+D
Kombi 3: A+B+C+E

usw... also alles möglich ist (Fakultät von 5: 120)

Kann mir da jemand ein Makro für schreiben, oder eine Seite nennen, die mir sämtliche Kombinationen nennen kann? Ich bin leider bei google nicht fündig geworden.

Vielen Dank und Grüße,
Vince

 

[Sven]

Hab dieses Makro entsprechend deiner Anforderung mit 5 Möglichkeiten angepasst:

Sub permut()
Columns("A:E").ClearContents
a = Array("A", "B", "C", "D", "E")
Call permutation(a, 0)
End Sub
Function permutation(ByVal a, k)
If k = 4 Then
zeile = Cells(65536, 1).End(xlUp).Row
If Cells(1, 1) <> "" Then zeile = zeile + 1
For i = 0 To 4
Cells(zeile, i + 1) = a(i)
Next
Else
For i = k To 4
x = a(i)
a(i) = a(k)
a(k) = x
Call permutation(a, k + 1)
Next
End If
End Function

 

[guerill4krieger]

mein Retter! Dank dir!