Vermeidung von doppelten Einträgen
16.01.2014 20:53:07
doppelten
Ich habe folgendes Problem.
In Spalte B trage ich Zahlen ein, dabei möchte ich doppelte Einträge vermeiden. Folgender Code klappt auch super:
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
Dim lngLetzteZeileA As Long
Dim rngSuchBereich As Range
Dim BereichA As Range
If Target.Count > 1 Then Exit Sub
lngLetzteZeileA = IIf(IsEmpty(Range("b65536")), Range("b65536").End(xlUp).Row, 65536)
Set BereichA = Range("b4:b" & lngLetzteZeileA - 1)
Set rngSuchBereich = BereichA.Find(Target.Value, LookIn:=xlValues, LookAt:=xlWhole)
If Not rngSuchBereich Is Nothing Then
MsgBox "Wert bereits vorhanden in Spalte B Zeile " & rngSuchBereich.Row
Target.ClearContents
End If
Set rngSuchBereich = Nothing
Set BereichA = Nothing
End Sub
In Spalte D trage zusätzlich das Jahr ein. Da ich einige Jahreszahlen auch in der Spalte B schon erfasst habe, z.B 2010, kann ich in einer neuen Zelle diese nicht erbneut erfassen.
Was muss ich ändern oder ergänzen?