Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.06.2024 10:26:31
25.06.2024 08:19:20
Anzeige
Archiv - Navigation
120to124
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
120to124
120to124
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Nur eindeutige Werte in Bereich

Nur eindeutige Werte in Bereich
14.05.2002 13:48:45
Frank
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

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Re: Nur eindeutige Werte in Bereich
18.05.2002 12:15:28
Hans W. Herber
Hallo Frank,

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

hans

Anzeige

312 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige