VBA: Doppelte zählen
11.06.2015 20:30:22
Emre
habe folgende Frage, und zwar geht es darum, dass der untere Code die doppelten Werte zählen soll, also die Gesamtzahl an doppelten Zeilen angeben soll. Das macht er auch eigentlich, nur wenn es keine doppelten Zeilen mehr gibt, wird in der MsgBox eine 1 angezeigt statt einer 0. Woran liegt das?
Sub zählen()
Dim loZeile As Long, counter As Integer, loLetzte As Long
loLetzte = IIf(IsEmpty(Cells(Rows.Count, 1)), Cells(Rows.Count, 1) _
.End(xlUp).Row, Rows.Count)
For loZeile = 2 To loLetzte
counter = Application.WorksheetFunction.CountIf(Columns("A:K"), _
Cells(loZeile, 1))
Next
MsgBox counter & " doppelte Zeilen"
End Sub