Hallo Karl-Heinz,

ich habe deinen Code getestet und er funktioniert. Dabei ist er sehr viel schneller als mein Versuch. Er braucht 68sec.

Eine Verständnisfrage, wofür ist das Resize(,3). Damit beschreibt er drei Spalten mit den gleichen Werten. Ohne Resize klappt es:

             .Cells(iZl, "L").Value = iCount(0) ' Zähler Summe

           '  .Cells(iZl, "L").Resize(, 3).Value = iCount(0) ' Zähler Summe

Jetzt schaue ich noch auf die anderen Beispiele.