Wenn-Funktion mit Dropdown klappt nicht...

Ich habe in Zelle D10 ein Drop-Down-Menü mit der Auswahl "ja" und "nein" angelegt.
Bei "Ja" möchte ich später die Auswahlmöglichkeit oder besser noch einfach nur den Text "Unterlagen" bekommen. Bei "Nein" benötige ich die Auswahlmöglichkeiten "A" und "B".
Ich habe den Bereich mit dem Wert "Unterlagen" entsprechend mit selbigen Namen versehen, den Bereich mit "A" und "B" ebenfalls (mit "auswahlnein").
Die Zelle, in der die Auswahl erscheinen soll habe ich auf Gültigkeit Liste gesetzt und mit der Formel =wenn(d10="nein";auswahlnein;Unterlagen).
Was nun passiert ist, wenn ich in D10 "Ja" auswähle erscheint einwandfrei "Unterlagen" in meiner gewünschten Zelle. Wenn ich "Nein" auswähle, dann erhalte ich zwar mit Klick auf die Zelle das korrekte Dropdown-Menü, die Zelle selbst meldet jedoch erst einmal #WERT. Wie kann ich das verhindern?
Denkbar wäre sicherlich auch hier noch die textliche Aufforderung "Bitte auswählen" zu ergänzen.
Vielen Dank für die Hilfe vorab!

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo,
für einen Anfänger in VBA hier was passendes zu empfehlen ist schwierig.
Ein entsprechendes Makro sieht wie folgt aus, bitte Kommentare beachten.
Gruß
Franz

'Dieses Makro im VBA-Editor unter der Tabelle einfügen, in der die Zellen mit den Dropdowns  _
sind
Private Sub Worksheet_Change(ByVal Target As Range)
'Makro reagiert auf Eingabe/Löschen von Zellinhalten
'Prüfen, ob eine der Zellen mit 1. DropDown-Auswahl geändert wurde
'Target steht hier immer für die Zelle, die gerade geändert wurde.
Application.EnableEvents = False 'Ereignismakros temporär deaktivieren - verhindert Rü _
ckkopplungseffekte
Select Case Target.Address(Rowabsolute:=False, Columnabsolute:=False, ReferenceStyle:=xlA1)
Case "D10"
'Zelle mit zugehöriger 2. Option anpassen/zurücksetzen
With Me.Range("E10") 'Zelle mit zugehöriger 2. Option
If Not .HasFormula Then
'Einfacher Weg
.ClearContents
'Alterntive
'Vorgabewert setzen - muss ein zuläßiger Wert gemäß DropDown-Auswahllisten für Zelle E10  _
sein!!!
If Target.Value = "Ja" Then
.Value = "Unterlage"
ElseIf Target.Value = "Nein" Then
.Value = "Bitte auswählen"
Else
.ClearContents
End If
End If
End With
Case "D11"
'nach gleichem Schema wie für D10
Case "D12"
'nach gleichem Schema wie für D10
End Select
Application.EnableEvents = True 'Ereignismakros wieder aktivieren
End Sub

Beliebteste Forumthreads (12 Monate)

Wenn-Funktion mit Dropdown klappt nicht...

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

300 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Wenn-Funktion mit Dropdown klappt nicht...

5 Beiträge zum Forumthread Beiträge zu diesem Forumthread

300 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread