Ich habe folgendes Problem bei dem ich eure Hilfe brauche: Ich habe einen Code der meine Tabelle nach doppelten Einträgen durchsucht. Funktioniert auch soweit ganz gut, das einzige Problem ist, dass die aktuelle Eingabe mit sich selbst verglichen wird, also laut Excel die Eingabe bereits im aktuellen Feld vorhanden ist.
Hier der Code:
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
Dim lngLetzteSpalteA As Long
Dim rngSuchBereich As Range
Dim Bereich As Range
If Target.Cells.Count > 1 Then Exit Sub
If Target.Value = "" Then Exit Sub
lngLetzteSpalteA = IIf(IsEmpty(Range("XFA1")), Range("XFA1").End(xlUp).Row, 1)
Set Bereich = Range("C1:XFA1" & lngLetzteSpalteA - 1)
Set rngSuchBereich = Bereich.Find(Target.Value, LookIn:=xlValues, LookAt:=xlWhole)
If Not rngSuchBereich Is Nothing Then
MsgBox "Bauteil bereits vorhanden in Zeile 1, Spalte" & Replace(Cells(1, rngSuchBereich. _
Column).Address(0, 0), "1", "")
End If
Set rngSuchBereich = Nothing
Set Bereich = Nothing
End Sub
Könnt ihr mir dabei bitte Helfen?Danke schonmal im Voraus.
Gruß