Doppelte Werte anzeigen
10.03.2008 18:08:00
Alex
ich habe hier ein Makro (aus dem Forum) das nach doppelten Werten in Spate B sucht.
Ich möchte aber, das er mir den Wert der in der Spalte ausgibt.
Momentan gibt er mir nur an in welcher Zeile, wie mache ich das?
Private Sub CommandButton4_Click()
Dim iRow As Integer, iRowL As Integer
iRowL = Cells(Cells.Rows.Count, 2).End(xlUp).Row
For iRow = iRowL To 1 Step -1
If WorksheetFunction.CountIf(Columns(2), Cells(iRow, 2)) > 1 Then
MsgBox "Der Wert " & iRow & " ist doppelt angelegt", vbCritical
End If
Next iRow
End Sub
Anzeige
