Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1692to1696
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
Inhaltsverzeichnis

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

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
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
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

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige