folgendes Makro wurde mir hier freundlicherweise erstellt,
welches im Bereich A1:C10 bei der Eingabe überprüft ob der
eingegebene Wert in diesem Bereich bereits vorhanden ist.
Dies funktioniert auch einwandfrei, jetzt soll jedoch dieses
Makro leere Zellen in diesem Bereich nicht überprüfen. D. h.
ist eine leere Zelle vorhanden und wird eine weitere leere Zelle
erzeugt, soll nicht die Meldung "Wert bereits vorhanden" erscheinen.
Gruß Frank
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
Dim rngFound As Range
Dim rngSchnittmenge As Range
Set rngSchnittmenge = Intersect(Target, Range("A1:C10"))
If Not rngSchnittmenge Is Nothing Then
Set rngFound = Range("A1:C10").Find(Target, Target, xlWhole)
If rngFound.Address <> Target.Address Then
MsgBox "Wert bereits vorhanden !", vbExclamation
End If
End If
End Sub