Permutationen in Mappe schreiben
06.03.2014 11:40:52
Dogbert
Ich möchte in eine Excelmappe die Permutationen aller Zahlen von 1 bis n schreiben.
Dazu habe ich einen VBA-Code gebastelt (siehe unten). Dieser funktioniert auch.
Allerdings möchte ich die Anzahl an Zahlen, die verknüpft werden sollen, variabel halten. Es sollen statt vier Zahlen also auch z.B. 3, 6 oder 9 möglich sein.
Hat jemand eine Lösung, wie ich die Anzahl variabel gestalten kann?
Mir ist bewusst, dass die Kombinationen schnell ansteigen und jede Menge Zeile gebraucht werden können. :-)
Danke!
Sub befuellen()
Dim a, b, c, d As Integer
Dim zeile As Double
zeile = 1
For a = 1 To 4
zeilefertig = False
For b = 1 To 4
If b a Then
For c = 1 To 4
If (c a) And (c b) Then
For d = 1 To 4
If (d a) And (d b) And (d c) Then
zeile = zeile + 1
Cells(zeile, 2) = a
Cells(zeile, 3) = b
Cells(zeile, 4) = c
Cells(zeile, 5) = d
End If
Next d
End If
Next c
End If
Next b
Next a
End Sub