Function NueberK_Output(values() As Integer, k%, kanal_out As Integer) As _
      Boolean
 
        'Liste aller Kombinationen der Werte in Values
 
        'values: null-basiertes Array mit Werteliste n = ubound(values)+1)
        'k: Anzahl der Werte in einer Kombination
        'Ausgabe in den geöffneten Ausgabekanal: kanal_out
 
        On Error GoTo fehler
        NueberK_Output = False
 
        Dim indices%()
        ReDim indices%(k - 1)
        indices(0) = -1
 
        Dim anz&, kombistr$, groups() As Integer
        anz = CLng(NueberK(UBound(values) + 1, k))
        If anz = -1 Then Exit Function
 
        ReDim kombi(k - 1) As Integer
        Dim i&, j%, l%, freq&
        For i = 1 To anz
            NextIndex indices, UBound(values) + 1
 
            'aktuelle Kombination aus Indices ermitteln
            'und AusgabeString erstellen
            kombistr = ""
            For j = 0 To k - 1
               kombi(j) = values(indices(j))
               kombistr = kombistr & CStr(kombi(j))
               If j < k - 1 Then kombistr = kombistr & "-"
            Next j
 
            ReDim groups(10)
            'Häufigkeit dieser Kombi in den Gruppen zählen
            freq = 0
            'Schleife über Werteliste in Gruppen
            For j = 1 To UBound(kombis)
                If ContainsAll(kombis(j).V1, kombi) Then
                   freq = freq + 1
                   If freq > UBound(groups) Then
                      ReDim Preserve groups(UBound(groups) + 10)
                   End If
                   'Gruppe, in der die Kombi auftritt, notieren
                   groups(freq) = kombis(j).Group
                End If
            Next j
 
            If freq > 0 Then
               'jeweils Gruppe, Kombination und Häufigkeit ausgeben
               'aufgebaut als Zeile einer CSV-Datei (Strichpunkte trennen 3 
               ' Felder)
               For j = 1 To freq
                   Print #kanal_out, CStr(groups(j)) & ";" & kombistr & ";" & _
                     CStr(freq)
               Next j
            End If
        Next i
 
        NueberK_Output = True
        Exit Function
 
fehler:
 
    End Function