|
wenn man sich schon mit vba beschäftigt , könnte man auch auf den Gedanken kommen, sich mit dem geschenken Code auseinanderzu setzen und Teile davon zu recherchieren.
dann könntest du darauf kommen das resize den Zellbereich verändert.
.Cells(iZl, "J").Resize(, 3).Value = iCount ' Zähler ausgeben
aus .Cells(iZl, "J").resize(,3) wird dann .Cells(iZl,"J") bis .Cells(iZl,"L")
die zwei anderen Code Zeilen sind somit überflüssig oder du lässt das Resize weg,
|