Ich möchte in einem Arbeitsblatt den Zellen C9:NP63
ein Dropdown Feld zuweisen
Ich habe dazu in der Datenüberprüfung unter Liste
diese Formel eingetragen
=WENN($B9="";"";WENN(C$77="";"";C$77:C$83))
Manuell hat das auch geklappt
Das aufgezeichnete Makro sieht so aus
Range("C9:NP63").Select
With Selection.Validation
.Delete
Range("C9:NP63").Select
With Selection.Validation
.Delete
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
xlBetween, Formula1:="=Wenn($B9="""";"""";Wenn(C$77="""";"""";C$77:C$63))"
.IgnoreBlank = True
.InCellDropdown = True
.InputTitle = ""
.ErrorTitle = ""
.InputMessage = ""
.ErrorMessage = ""
.ShowInput = True
.ShowError = True
End With
.IgnoreBlank = True
.InCellDropdown = True
.InputTitle = ""
.ErrorTitle = ""
.InputMessage = ""
.ErrorMessage = ""
.ShowInput = True
.ShowError = True
End With
Leider erhalte ich diese Meldung
Laufzeitfehler 1004
Anwendungs oder objektdefinierter Fehler
Im VBA Editor wird folgendes Gelb markiert
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
xlBetween, Formula1:="=Wenn($B9="""";"""";Wenn(C$77="""";"""";C$77:C$63))"
Könnt ihr mir bitte helfen
https://www.herber.de/bbs/user/138754.xlsm
Gruß Christian