Validation mit INDIRECT: Formel nicht VBA-konform
15.07.2015 19:46:38
Jürgen
benötige gerade Hilfe beim Aufbau einer Gültigkeitsprüfung per VBA.
Per Makrorekorder ergibt sich folgende Syntax:
With Range("I11").Validation
.Delete
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
xlBetween, Formula1:= _
"=WENN(H11>0;INDEX(INDIREKT(A11);1;3);WENN(G11>0;INDEX(INDIREKT(A11);1;2)))"
.IgnoreBlank = True
.InCellDropdown = True
.InputTitle = ""
.ErrorTitle = ""
.InputMessage = ""
.ErrorMessage = ""
.ShowInput = True
.ShowError = True
End With
Die Formel läuft allerdings (erwarteterweise) in den 1004-Fehler.
Habe verschiedene Versuche gestartet, die Formel VBA-gerecht aufzubauen, bin jedoch mit allen Versuchen gescheitert.
Mein letzter Versuch:
Formula1:= "=IF(H11>0;INDEX(INDIRECT(""" & A11 & """),1,3);IF(G11>0;INDEX(INDIRECT(""" & A11 & """),1,2)))"
In Zelle "A11" steht der Name eines benannten Bereiches. In Abhängigkeit davon, ob in G11 oder H11 eine Zahl steht, soll aus dem benannten Bereich nur ein bestimmter Wert für die Gültigkeitsliste zulässig sein (entweder Wert aus Spalte 2 oder aus Spalte 3).
Wäre sehr dankbar, wenn mir jemand zeigen könnte, wie die Formel VBA-konform aussehen muss.
Vorab danke.
Gruß
Jürgen