Sub SetKombisInGroups()
 
   Dim i&, k&, l&, m&, gv&()
   For i = 1 To UBound(kombis)
      With kombis(i)
          'Werteliste der Gruppe lesen
          ReDim gv(UBound(.V1))
          For k = 1 To UBound(.V1)
             gv(k) = .V1(k)
          Next k
 
          'Werte-Kombinationen (Paarungen) in Listen der Gruppe eintragen
          m = UBound(.V1)
          ReDim .V1((m ^ 2 - m) / 2)
          ReDim .V2(UBound(.V1))
          m = 0
          For k = 1 To UBound(gv) - 1
             For l = k + 1 To UBound(gv)
                 m = m + 1
                 .V1(m) = gv(k)
                 .V2(m) = gv(l)
             Next l
          Next k
      End With
   Next i
End Sub
 
 
Private Sub FillKombiGroupsList()
 
   Dim i&, k&, l&, m&, n&, foundk, foundg As Boolean
   ReDim Freqs(0)
 
   For i = 1 To UBound(kombis)
       'Schleife über Gruppen
       With kombis(i)
           'Schleife über Wertepaare in Gruppe
           For k = 1 To UBound(.V1)
              foundk = False
              For l = 1 To UBound(Freqs)
                  'Wertepaarung suchen
                  If Freqs(l).V1 = .V1(k) And _
                     Freqs(l).V2 = .V2(k) Then
                     'Bei Wertepaarung eine zugehörige Gruppe anhängen
                     foundk = True
                     n = UBound(Freqs(l).groups) + 1
                     ReDim Preserve Freqs(l).groups(n)
                     Freqs(l).groups(n) = .Group
                     Exit For
                  End If
              Next l
              If Not foundk Then
                 'Wertepaarung anhängen
                 l = UBound(Freqs) + 1
                 ReDim Preserve Freqs(l)
                 Freqs(l).V1 = .V1(k): Freqs(l).V2 = .V2(k)
                 ReDim Freqs(l).groups(1)
                 Freqs(l).groups(1) = kombis(i).Group
              End If
           Next k
       End With
   Next i
End Sub
 
 
Private Sub SortKombiGroupsList()
 
   'nach Häufigkeiten (= Anzahl Gruppen) fallend sortieren
   Dim i%, k%, f As Freq
   For i = 1 To UBound(Freqs) - 1
      For k = i + 1 To UBound(Freqs)
         If UBound(Freqs(i).groups) < UBound(Freqs(k).groups) Then
            f = Freqs(i)
            Freqs(i) = Freqs(k)
            Freqs(k) = f
         End If
      Next k
   Next i
End Sub
 
 
Private Sub WriteKombiGroupsList(file_out As String)
   Dim i%, k%
 
   Open file_out For Output As #1
   For i = 1 To UBound(Freqs)
      With Freqs(i)
         Print #1, .V1, .V2, "  F = "; UBound(.groups)
         For k = 1 To UBound(.groups)
            Print #1, .groups(k)
         Next k
      End With
   Next i
   Close #1
End Sub