Herbers Excel-Forum - das Archiv

Nur eindeutige Werte in Bereich



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

Excel-Beispiele zum Thema "Nur eindeutige Werte in Bereich"
Leerzeichen aus einem Bereich löschen Befindet sich die aktive Zelle in einem bestimmten Bereich?
Mehrbereichsauswahl auf eine Seite drucken. Spalten einer Mehrbereichsauswahl ausblenden.
Bereich mit Maximalwert markieren Benannten Bereich erweitern
Bereich in RefEdit-Element eingeben und auslesen Benutzerdefinierte SVERWEIS-Funktion über mehrere Bereiche
Letzter Wert aus einem Bereich Bereiche bei Mehrfachauswahl prüfen