Matrixauswertung?

in diesem Forum bitte mit Realnamen auftreten, danke.

Mal als Ansatz, der nachfolgende Code liefert in Spalte A die möglichen Viererkombinationen der in Spalte B stehenden Elemente:

Sub Kombinationen()
   Dim arr() As String
   Dim iCounter As Integer
   Dim Str As Variant
   Dim i%, y%, x%, z%, R%
   ReDim arr(0 To WorksheetFunction.CountA(Columns(2)) - 1)
   For iCounter = 0 To UBound(arr)
      arr(iCounter) = Cells(iCounter + 1, 2).Value
   Next iCounter
   Str = arr
   For i = 0 To UBound(Str)
      For y = 0 To UBound(Str)
         For x = 0 To UBound(Str)
            For z = 0 To UBound(Str)
               R = R + 1
               Cells(R, 1) = Str(i) & Str(0 + y) & _
                  Str(0 + x) & Str(0 + z)
            Next z
         Next x
      Next y
   Next i
End Sub

hans