Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Doppelter Wert

Forumthread: Doppelter Wert

Doppelter Wert
17.05.2019 19:41:23
Guesa
Hallo Forum
Mal wieder ein Problem, folgendes
folgenden Code benutze ich für Spalte C
Sub Worksheet_Change(ByVal Target As Range)
Dim Bereich As Range
Set Bereich = Range("C2:C1500")
If Target.Cells.Count > 1 Then Exit Sub
If Target.Value = "" Then Exit Sub
If Intersect(Bereich, Target) Is Nothing Then Exit Sub
If WorksheetFunction.CountIf(Bereich, Target.Value) > 1 Then
MsgBox ("Doppelter Eintrag in Spalte C nicht zulässig")
'Application.EnableEvents = False
'Application.EnableEvents = True
Target.Select
End If
End Sub
das gleiche bräuchte ich für die Spalte D da jeweils in beiden spalten nur eindeutige Werte vorhanden sein dürfen. Wie müsste dieser angepasst werden?
Für Eure Hilfe schon mal ein Danke schön
Gruß, Guesa
Anzeige

8
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Alternative Gültigkeitsprüfung
17.05.2019 20:06:38
ChrisL
Hi Guesa
Warum nicht einfach eine Gültigkeitsprüfung?
https://www.fasteasy.at/tippshop/index.php?mp=1&show=excel&id=1&show2=Datenerfassung&id2=41&show3=Eindeutige%20Daten%20in%20Spalten%20sicherstellen&id3=956
cu
Chris
AW: Alternative Gültigkeitsprüfung
17.05.2019 20:41:01
Guesa
Wenn es mit VBA nicht geht werde ich das so machen
Gruß, Guesa
Anzeige
AW: Alternative Gültigkeitsprüfung
17.05.2019 21:25:27
Werner
Hallo,
zum Beispiel so:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
If Target.Row  1500 Then Exit Sub
Select Case Target.Column
Case 3
If Target  "" Then
If WorksheetFunction.CountIf(Range("C2:C1500"), Target) > 1 Then
MsgBox "Nicht zulässig, doppelter Wert."
Application.EnableEvents = False
Application.Undo
Application.EnableEvents = True
End If
End If
Case 4
If WorksheetFunction.CountIf(Range("D2:D1500"), Target) > 1 Then
MsgBox "Nicht zulässig, doppelter Wert."
Application.EnableEvents = False
Application.Undo
Application.EnableEvents = True
End If
Case Else
End Select
End Sub
Gruß Werner
Anzeige
And = Or owT.
17.05.2019 22:07:28
ChrisL
.
Uuups, stimmt natürlich. o.w.T.
17.05.2019 22:10:44
Werner
AW: Alternative Gültigkeitsprüfung
17.05.2019 22:08:31
Guesa
Danke Werner
wieder mal perfekt
Gruß, Guesa
Anzeige
AW: Alternative Gültigkeitsprüfung
17.05.2019 22:13:51
Werner
Hallo,
nein, eben nicht. Wie Chris schon angemerkt hat hier
If Target.Row  1500 Then Exit Sub

das And durch ein Or ersetzen.
Gruß Werner
AW: Alternative Gültigkeitsprüfung
17.05.2019 22:21:18
Guesa
Hallo Werner
Ok habe ich ausgetauscht, hatte aber keine Fehlermeldung bei der Eingabe, funktionierte einwandfrei
Gruß, Guesa
Anzeige
;

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige