Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 18:41:19
vba Zeilen duplizieren ab aktiver Zeile bis letzte Zeile
25.04.2024 18:22:55
Zeilen mit bestimmtem Datum in andere Mappe übertragen
25.04.2024 18:14:45
VBA - Excell - Kopie und "Diebstahl" Schützen
25.04.2024 17:49:39
Bedingte Formatierung
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1904to1908
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1904to1908
1904to1908
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Datenvalidierung: Wert und DropDown?

Datenvalidierung: Wert und DropDown?
21.11.2022 08:15:53
heikoolt@web.de
Guten Morgen,
Ich versuche einen in excel eine Datenvalidierung mit einer wenn Formel zu erstellen, die entweder einen Wert ausgibt oder eine DropDownListe?
Ist das möglich, ich bekomme immer eine Fehlermeldung bzw. unabhängig des Falls eine DropDownListe, wenn auch nur mit einem Wert.
=IF($I17="YES",Sheet2!$T$3:$T$7,Sheet2!$U$3) => Ergebnis Yes Dropdown, falls nicht Dropdown mit einem Wert, der aber manuell ausgesucht werden muss...
gewünschtes Ergebnis:
=IF($I17="YES",Sheet2!$T$3:$T$7,"NICHT Anwendbar") aber das funktioniert nicht....
Gibt es das ein Möglichkeit? oder kann ich das anders lösen?
Immer wenn die Bedingung nicht erfüllt ist "Nicht Anwendbar" ansonsten Dropdown mit mehre Auswahlmöglichkeiten?
Danke für eure Hilfe.
Gr hakes1701d

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Datenvalidierung: Wert und DropDown?
21.11.2022 08:39:33
ChrisL
Hi
Die Gültigkeitsprüfung ist nur eine Prüfung und verändert somit den Zellwert nicht.
Gültigkeitsprüfung: Sheet1!A1
YES-Zelle: Sheet1!I17
Liste: Sheet2!T3:T7
Nachfolgender Code ins Modul von "Sheet1" kopieren:

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("I17")) Is Nothing Then
With Worksheets("Sheet1")
If .Range("I17") = "YES" Then
If .Range("A1") = "NICHT Anwendbar" Then .Range("A1").ClearContents
With .Range("A1").Validation
.Delete
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:=xlBetween, Formula1:="=Sheet2!$T$3:$T$7"
.IgnoreBlank = True
.InCellDropdown = True
.InputTitle = ""
.ErrorTitle = ""
.InputMessage = ""
.ErrorMessage = ""
.ShowInput = True
.ShowError = True
End With
Else
.Range("A1").Validation.Delete
.Range("A1") = "NICHT Anwendbar"
End If
End With
End If
End Sub
cu
Chris
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige