Office: Liste und Eingabefeld

Hallo Leutz,

Ich will folgendes erstellen:

Wenn ich in der Zelle D4 "ja" auswähle, soll in der Zelle D7 eine Auswahl durch eine Liste möglich sein. Wenn ich "Nein" auswähle soll es nur eine ganz normale zelle sein, in die man dann was eintragen kann. Es soll also bei "Nein" keine Auswahl möglich sein.


Vielen Dank und Gruss
hai

 

Hallo!

Rechtsklick auf den Tabellenreiter und diesen Code ins Codefenster rechts einfügen:

Code:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address <> "$D$4" Then Exit Sub
If Target = "ja" Then
With Range("D7").Validation
.Delete
.Add Type:=xlValidateList, _
AlertStyle:=xlValidAlertStop, _
Operator:=xlEqual, _
Formula1:="=$H$1:$H$10"
End With
Else
Range("D7").Validation.Delete
End If
End Sub

In diesem Beispiel ist die Liste in den Zellen H1:H10 hinterlegt.
Das musst du anpassen, oder du gibst die Liste direkt ein:

Formula1:="groß,klein,lang,kurz"

 

krieg ich irgendwie nicht hin

danke für die Lösung aber irgendwie krieg ich es nicht hin.
hab dein code so umgeschrieben aber hat gar kein effekt. es passiert nichts

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address <> "$D$5" Then Exit Sub
If Target = "ja" Then
With Range("D9").Validation
.Delete
.Add Type:=xlValidateList, _
AlertStyle:=xlValidAlertStop, _
Operator:=xlEqual, _
Formula1:="=$P$2:$P$245"
End With
Else
Range("D9").Validation.Delete
End If
End Sub


vielen dank und gruss
hai

 

Tja, bei mir funktioniert's...

Hast du einen Blattschutz aktiviert oder laufen noch andere Makros, die dieses Makro behindern könnten?

Teste es mal an einer neuen Datei.

 

hmmm

weiss nicht was ich falsch mach...

anbei die datei bei der ich dein code ausprobiert habe

 

Groß- und Kleinschreibung!!!!

Du gibst "Ja" ein, aber fragst nach "ja".
Da ist Excel sehr pedantisch...

 

ooops

ja sorry, jetzt funzt es.

was müsste ich denn davor schreiben, wenn die daten auf dem Tabellenblatt Datenpflege sind:

Formula1:="=$A$2:$A$245"



habs mit Formula1:="=Datenpflege!$A$2:$A$245" geht leider nicht


vielen dank und gruss
hai

 

Hallo!

Dazu müssest du einen Namen vergeben, da die Gültigkeitsprüfung nur auf Umwegen Bezüge von anderen Tabellenblättern zulässt:

Menü Einfügen > Namen > Definieren
Name: MeineListe
Bezieht sich auf: =Datenpflege!$A$2:$A$245

Im Code wird dies dann zu

Formula1:="=MeineListe"

Statt "MeineListe" kannst du natürlich auch einen aussagekräftigeren Namen verwenden; aber vermeide (wie üblich) die Verwendung von Sonderzeichen.