Nur eindeutige Werte in Bereich

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
MsgBox


Excel-Version: 8.0 (Office 97)
nach unten

Betrifft: Nur eindeutige Werte in Bereich
von: Frank
Geschrieben am: 14.05.2002 - 13:48:45

Hallo,

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

nach oben   nach unten

Re: Nur eindeutige Werte in Bereich
von: Hans W. Herber
Geschrieben am: 18.05.2002 - 12:15:28

Hallo Frank,

setze an den Anfang des Codes folgende Zeile:
If IsEmpty(Target) Then Exit Sub

hans

 nach oben

Beiträge aus den Excel-Beispielen zum Thema "Nur eindeutige Werte in Bereich"