folgende Frage:
Ich habe eine Liste:
A.................B
Peter.....FEHLER
Stefen
Hans
Stefen
Gabi
B1 soll anzeigen, dass in der Liste der Name Stefen schon einmal vorkommt.
Wie geht das?
Danke im vorraus
Sub Fehler()
Dim i As Integer
For i = 1 To Range("A65536").End(xlUp).Row
If WorksheetFunction.CountIf([A:A], Cells(i, 1)) > 1 Then Cells(i, 2) = "FEHLER"
Next
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim i As Integer
If Target.Column <> 1 Then Exit Sub
For i = 1 To Range("A65536").End(xlUp).Row
If WorksheetFunction.CountIf([A:A], Cells(i, 1)) > 1 Then
Cells(1, 2) = "FEHLER"
Exit Sub
Else
Cells(1, 2).ClearContents
End If
Next
End Sub
Code in das betreffende Tabellenblatt, nicht in ein Modul.