permutation
03.03.2008 12:31:00
helmut.em
Re: Permutationen
Nochmals Danke,
hier für alle die interessiert sind das Makro:
Sub permut()
Columns("A:E").ClearContents
a = Array("A", "B", "C", "D")
Call permutation(a, 0)
End Sub
Function permutation(ByVal a, k)
If k = 3 Then
zeile = Cells(65536, 1).End(xlUp).Row
If Cells(1, 1) "" Then zeile = zeile + 1
For i = 0 To 3
Cells(zeile, i + 1) = a(i)
Next
Else
For i = k To 3
x = a(i)
a(i) = a(k)
a(k) = x
Call permutation(a, k + 1)
Next
End If
End Function
was ich aber brauche ist nicht, dass alle anordnungen der permutation untereinander gelistet werden, sondern dass sich bei der ausführung des makros ganze spalten permutieren. also mit jedem klick soll sich eine neue anordnung der spalten zeigen.
kann da jemand helfen, evtl. das obige makro modifizieren?
danke im voraus helmut.em