dopplete einträge nicht zählen
04.05.2005 12:51:20
artur
ich habe gestern schon einen ähnlichen Beitrag geschrieben.
Es geht um folgende:
Ich habe eine spalte mit Nummer und eine andere mit namen. Zu jeder nummer kann aber der selbe name doppelt oder dreifach vorkommen. Ich brauche die anzahl der nummer, aber unter berücksichtigung,dass in der spalte daneben der dopplete name nicht gezählt wird.
habe hier ein makro, welches mir die anzahl der nummern ausgibt, jetzt brauche ich noch eine erweiterung,damit die gleichen in der spalte daneben nicht gezählt werden.
zl = [A65536].End(xlUp).Row
For i = 1 To zl
Range("q65536").End(xlUp).Offset(1, 0).Select
If WorksheetFunction.CountIf(Range(Cells(i, 1), Cells(zl, 1)), Cells(i, 1)) = 1 Then
Cells(i, 17) = WorksheetFunction.CountIf(Range(Cells(1, 1), Cells(zl, 1)),
Cells(i, 1))
End If
Next
Kann mir da jemand helfen?
mfg
artur