Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
784to788
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
784to788
784to788
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Plausibilitätsprüfung

Plausibilitätsprüfung
21.07.2006 08:36:34
Bernd
Hallo,
ich habe folgende Frage:
In Spalte A werden Nummern eingegeben. Es darf aber keine Nummer doppelt eingegeben werden. Kann man hier eine Meldung anzeigen lassen "Nummer existiert bereits" falls eine Nummer doppelt eingegeben wird.
https://www.herber.de/bbs/user/35268.xls

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Plausibilitätsprüfung
21.07.2006 08:47:40
Matthias
Hallo Bernd,
z.B. so:
ins Tabellenmodul:

Private Sub Worksheet_Change(ByVal Target As Range)
Const ber = "A:A"
Dim z As Range, rng As Range
Set rng = Intersect(Target, Range(ber))
If Not rng Is Nothing Then
Set z = rng(1)
If WorksheetFunction.CountIf(Range(ber), z) > 1 Then
MsgBox z & " existiert bereits!"
With Application
.EnableEvents = False
.Undo
.EnableEvents = True
End With
End If
End If
End Sub

Gruß Matthias
AW: Plausibilitätsprüfung
21.07.2006 09:40:49
Bernd
Hallo Matthias,
danke und funktioniert ausgezeichnet
Anzeige

300 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige