Ich habe den Code als erstes getestet. Er funktioniert. Das ist schonmal erfreulich!!
Dauer 68 sec., signifikant besser als mein Versuch!
Was ich nicht verstehe, er gibt noch einen wert in Spalte M und N aus. Er Sollte aber nur die Spalte 1G 10G und Summe ausgeben, hier also iCount(0) - iCount(2). Das ist wohl der Abschnitt Loop While Not...
If Not rZelle Is Nothing Then
ErsteAddresse = rZelle.Address ' Erste Fundadresse merken
Do
iCount(0) = iCount(0) + 1 ' Gesamtzähler
If Sheets("Liste2").Cells(rZelle.Row, "L").Value = "1 Gigabit Ethernet" Then
iCount(1) = iCount(1) + 1 ' Teilzähler1
Else
iCount(2) = iCount(2) + 1 ' Teilzähler2
End If
Set rZelle = rSpalte.FindNext(rZelle) ' Nächtes suchen
Loop While Not rZelle Is Nothing And rZelle.Address <> ErsteAddresse
.Cells(iZl, "J").Resize(, 3).Value = iCount(1) ' Zähler 1GE
.Cells(iZl, "K").Resize(, 3).Value = iCount(2) ' Zähler 10GE
.Cells(iZl, "L").Resize(, 3).Value = iCount(0) ' Zähler Summe
End If
|