Dim i as integer, a as integer
Dim colHaus1 as collection, colHaus2 as collection, colHaus3 as collection, _
  colHaus4 as collection, colHaus5 as collection
 
'die Collection sind alle mit Daten gefüllt
'wie kann ich jetzt alle Collection durchlaufen
 
For i = 1 to 5
     For a = 1 to colHaus(i).Count  
         Msgbox (colHaus(i).Item(a))
     Next a
Next i