If Not rZelle Is Nothing Then
ErsteAddresse = rZelle.Address
Do
iCount(0) = iCount(0) + 1
If Sheets("Liste2").Cells(rZelle.Row, "L").Value = "1 Gigabit Ethernet" Then
iCount(1) = iCount(1) + 1
Else
iCount(2) = iCount(2) + 1
End If
Set rZelle = rSpalte.FindNext(rZelle)
Loop While Not rZelle Is Nothing And rZelle.Address <> ErsteAddresse
.Cells(iZl, "J").Resize(, 3).Value = iCount(1)
.Cells(iZl, "K").Resize(, 3).Value = iCount(2)
.Cells(iZl, "L").Resize(, 3).Value = iCount(0)
End If