Gültigkeit einschränken + Doppelnennung vermeiden

Forumthread: Gültigkeit einschränken + Doppelnennung vermeiden
6 Beiträge zu diesem Forumthread
Anzeige

Forumthread: Gültigkeit einschränken + Doppelnennung vermeiden

13.06.2025 14:53:04

hmp1975

Hallo ihr lieben Wissenden.
Ich versuche eine Art doppelte Überprüfung / Einschränkung der Datengültigkeit zu erreichen, um aus z.B. 5 Hotels nur eines mit "1" Auswählen zu können. Dazu beispielhaft folgender Screeshot:
Userbild

Ich möchte im Beispiel,
-> dass nur "1" als Eingabe gültig ist, und
-> dass nur bei EINEM Hotel in diesem Bereich eine Eingabe von "1" möglich ist.

Ich denke dass das irgendwie über benutzerdefinierte Datengültigkeit geht, aber ich bekomme es nicht hin.

Weiss jemand eine Lösung?

Viele Grüße,
Gerrit

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Gültigkeit einschränken + Doppelnennung vermeiden

13.06.2025 14:56:49

SF
AW: Gültigkeit einschränken + Doppelnennung vermeiden

16.06.2025 17:18:46

hmp1975
AW: Gültigkeit einschränken + Doppelnennung vermeiden

13.06.2025 14:59:36

velo
AW: Gültigkeit einschränken + Doppelnennung vermeiden

13.06.2025 15:09:40

UweD
AW: Gültigkeit einschränken + Doppelnennung vermeiden

13.06.2025 15:12:22

daniel
AW: Gültigkeit einschränken + Doppelnennung vermeiden

16.06.2025 18:10:22

hmp1975

AW: Gültigkeit einschränken + Doppelnennung vermeiden

13.06.2025 14:56:49

Hola,
in der Datenüberprüfung, Benutzerdefiniert:

=UND(D5=1;ZÄHLENWENN($D$4:$D$8;1)2)

Gruß,
steve1da

AW: Gültigkeit einschränken + Doppelnennung vermeiden

16.06.2025 17:18:46

hmp1975

Das funktioniert super. DANKE!!!

AW: Gültigkeit einschränken + Doppelnennung vermeiden

13.06.2025 14:59:36

velo

Hi,

ginge auch als VBA Skript:

Option Explicit



Private Sub Worksheet_Change(ByVal Target As Range)

    Dim rng As Range

    Set rng = Me.Range("D4:D8") 'ggf. anpassen

    If Not Intersect(Target, rng) Is Nothing Then

        If WorksheetFunction.CountIf(rng, Target.Value) > 1 Then

            Target.ClearContents

            MsgBox "Nur eine Auswahl möglich"

        End If

    End If

End Sub

Der Code muss aber im jeweiligen Arbeitsblatt hinterlegt sein, nicht in einem Modul.

VG
velo

AW: Gültigkeit einschränken + Doppelnennung vermeiden

13.06.2025 15:09:40

UweD

Hallo

D4:D8 markieren (Bei D4 beginnen)
Daten, Datenüberprüfung, Benutzerefiniert

Arbeitsblatt mit dem Namen 'Tabelle2'
	B	C	D	E
3
4		Hotel 1
5		Hotel 2
6		Hotel 3	1
7		Hotel 4
8		Hotel 5
9

Zelle	Gültigkeitstyp	Operator	Wert1	Wert2
D4	Benutzerdefiniert		=(D4=1)*(ANZAHL($D$4:$D$8)=1)

LG UweD

AW: Gültigkeit einschränken + Doppelnennung vermeiden

13.06.2025 15:12:22

daniel

Hi

als vorbereitung musst in deine Zelle die 1 schreiben (z.B. A1) und auf dem Tabellenblatt eine leere Zelle finden (sollte nicht so schwer sein, z.B. A2)
das Datengültigkeit nimmst du LISTE, die Formel von Liste muss auf einen Zellbereich verweisen, der die zulässigen Werte enthält.
dh wenn die Zellen D4:D8 leer sind auf A1 (mit der 1) und wenn nicht, auf eine Leerzelle (A2)

also: Zellen D4:D8 markieren, Datenüberprüfung - Zulassen: Liste und als Quelle diese Formel angeben: