Mit unterem Code verhindere ich doppelte Einträge. Der funktioniert auch tadellos. Das Problem ist aber: Wenn ich am Tabellenblatt etwas kopieren will oder mehrere Zeilen löschen will, dann wirds zum debuggen. Kann mir vielleicht irgendwer helfen
Private Sub Worksheet_Change(ByVal Target As Range)
If WorksheetFunction.CountIf(Range("A12:C1500"), Target.Value) > 1 Then
Target.ClearContents
MsgBox "ist schon vorhanden"
Cells.Find(What:=Target.Value, After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _
xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False _
).Activate
End If
End Sub
Danke
Michael