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