AW: doppelte Einträge mit VBA verhindern
15.09.2020 16:05:39
Nepumuk
Hallo Sonnenfreund,
in das Modul der Tabelle (Rechtsklick auf den Tabellenreiter - Code anzeigen):
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
Dim avntValues As Variant
Dim ialngIdex As Long
Dim objRang As Range, objCell As Range
Set objRang = Intersect(Target, Columns(1))
If Not objRang Is Nothing Then
Application.EnableEvents = False
avntValues = Range(Cells(1, 1), Cells(Rows.Count, 1)).Value
For Each objCell In objRang
For ialngIdex = LBound(avntValues, 1) To UBound(avntValues, 1)
If ialngIdex <> objCell.Row Then
If InStr(1, objCell.Value, avntValues(ialngIdex, 1), vbTextCompare) > 0 Or _
InStr(1, avntValues(ialngIdex, 1), objCell.Value, vbTextCompare) > 0 Then
Call MsgBox("Doppelter Wert in Zelle ''" & _
objCell.Address(False, False) & "''", vbExclamation, "Hinweis")
objCell.Value = Empty
Exit For
End If
End If
Next
Next
Application.EnableEvents = True
Set objRang = Nothing
End If
End Sub
Überwacht wird die komplette Spalte A!!!
Gruß
Nepumuk