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