Office: unterschiedliche Auswahllisten

Hallo,

ich hab folgenden Makro und will es so umbauen, dass in Zelle D7, wenn in D5 "Nein" ausgewählt wird, "Neuauftrag" steht. Bei Auswahl "Ja" soll "Folgeauftrag;Verlängerung;Kündigung;Umzug;Change;Upgrade" in der Liste auswählbar sein.

Wie könnte ich das am besten machen?

Hier das bisherige Makro:

If Target.Address = "$D$5" Then
If Target = "Ja" Then
With Range("D9").Validation
.Delete
.Add Type:=xlValidateList, _
AlertStyle:=xlValidAlertStop, _
Operator:=xlEqual, _
Formula1:="=Account"
End With
Else
Range("D9").Validation.Delete
End If
End If

Vielen Dank und Grüsse
hai

 

habs gelöst!

man kann in die Gültigkeit auch ne Formel schreiben. Dann einfach eine WENN Formel reinschreiben

Grüsse
hai