es tut mir leid das ich den beitrag hier nochmal reinsetze, aber trotz und nur mit daniels hilfe haben wir es geschafft den code so weit zu bringen. es ging darum, das ich dreier oder sechser kombinationen aus selbst 20 ausgesuchten zahlen berechnen lassen wollte.
das problem liegt daran das der code, warum auch immer einen laufzeitfehler hat. Zusätzlich rechnet es alle möglichen kombinationen aus (auch wiederholungen) was auf gar keinen fall sein darf.
z.B.:
wenn die erste kombination 1,2,3,4,5,6 ist dann dürfen diese zahlen egal in welcher reihenfolge nicht mehr vorkommen (2,1,3,4,5,6 oder 3,1,2,4,5,6)
hier der code
Sub test()
Dim Zahlen
Dim Anz As Long
Dim i As Long, j As Long, k As Long, l As Long, m As Long, n As Long
Dim Zeile As Long
Dim Erg
Anz = Range("Anz")
ReDim Erg(Anz * (Anz - 1) * (Anz - 2) * (Anz - 3) * (Anz - 4) * (Anz - 5))
Zahlen = Range("Zahlenliste").Resize(Anz, 1)
Zeile = 0
Range("C:H").ClearContents
For i = 1 To Anz
Application.StatusBar = "Bearbeitet: " & Format(i / Anz, "0%")
For j = 1 To Anz
For k = 1 To Anz
For l = 1 To Anz
For m = 1 To Anz
For n = 1 To Anz
If Not (i = j Or i = k Or i = l Or i = m Or i = n Or n) Then
Zeile = Zeile + 1
Erg(Zeile, 1) = Zahlen(i, 1)
Erg(Zeile, 2) = Zahlen(j, 1)
Erg(Zeile, 3) = Zahlen(k, 1)
Erg(Zeile, 4) = Zahlen(l, 1)
Erg(Zeile, 5) = Zahlen(m, 1)
Erg(Zeile, 6) = Zahlen(n, 1)
End If
Next
Next
Next
Next
Next
Next
Cells(1, 6).Resize(UBound(Erg, 1), UBound(Erg, 2)) = Erg
Application.StatusBar = False
End Sub
für jede hilfe wäre ich sehr dankbar. grüße daniel
mfg
yusuf