AW: Zahl bestimmen
27.09.2011 22:52:19
Uduuh
Hallo,
Sub Main()
Dim objArr As Object, arrKombi(0 To 5)
Dim i As Integer, j As Integer, k As Integer, l As Integer
Dim DasArray, arrTmp
Set objArr = CreateObject("Scripting.Dictionary")
arrKombi(4) = 3
arrKombi(5) = 3
arrTmp = Array(1, 2, 4, 5, 6, 7, 8, 9)
For i = 0 To UBound(arrTmp) - 3
arrKombi(0) = arrTmp(i)
For j = i + 1 To UBound(arrTmp) - 2
arrKombi(1) = arrTmp(j)
For k = j + 1 To UBound(arrTmp) - 1
arrKombi(2) = arrTmp(k)
For l = k + 1 To UBound(arrTmp)
arrKombi(3) = arrTmp(l)
Kombiniere "", arrKombi, objArr
Next
Next
Next
Next
DasArray = objArr.keys
'Ausgabe in neuem Blatt
Worksheets.Add.Cells(1, 1).Resize(UBound(DasArray) + 1) = WorksheetFunction.Transpose( _
DasArray)
End Sub
Sub Kombiniere(strTmp, DasArray, objArr As Object)
Dim i As Integer, j As Integer, k As Integer
Dim strTmp2, DasArray2
If UBound(DasArray) > 0 Then
ReDim DasArray2(UBound(DasArray) - 1)
For i = 0 To UBound(DasArray)
strTmp2 = strTmp & DasArray(i)
k = 0
For j = 0 To UBound(DasArray) - 1
If i = j Then k = 1
DasArray2(j) = DasArray(j + k)
Next j
Kombiniere strTmp2, DasArray2, objArr
Next i
Else
objArr(strTmp & DasArray(0)) = 0
End If
End Sub
Gruß ausm Pott
Udo