doppelte Datensätze verhindern
26.05.2008 09:30:00
chrissie
ich hätte mal wieder eine Frage. Wie kann ich folgendes Makro umändern, das ich ich doppelte Datensätze in einer Arbeitsmappe mit mehreren Tabellblättern und unterschiedlichen Spalten verhindere?
Vielen Dank! Ich hoffe jemand hat ne Idee. :)
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
Dim rngSearch As Range
Set rngSearch = Range("b9:b2000")
With Target
If Not Intersect(Target, rngSearch) Is Nothing Then
If .Count = 1 Then
If WorksheetFunction.CountIf(rngSearch, .Value) > 1 Then
Application.EnableEvents = False
.ClearContents
Application.EnableEvents = True
End If
End If
End If
End With
End Sub