Dopplerter Eintrag
15.12.2014 11:41:53
Timo
ich brauche einen Code der mir, wenn doppelte Einträge vorhanden sind, eine Warnung ausgibt und mir anzeigt wo der Wert zu finden ist. Da die Spalten und nicht die Zeilen variabel sind, wäre es gut, wenn die Spalten in Buchstaben und nicht in Zahlen ausgegeben werden.
Den Teil mit der Warnung hab ich schonmal:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Bereich As Range
Set Bereich = Range("D1:ZZ1")
If Target.Cells.Count > 1 Then Exit Sub
If Target.Value = "" Then Exit Sub
If Intersect(Bereich, Target) Is Nothing Then Exit Sub
If WorksheetFunction.CountIf(Bereich, Target.Value) > 1 Then
MsgBox ("Bauteil bereits vorhanden")
End If
End Sub
Gruß Timo