Select Case + xlValidateList + Join
11.11.2014 23:52:10
Robert
ich habe in einer Zelle ein Dropdown und möchte sobald ein bestimmter Wert selektiert wird in einer anderen Zelle ein weiteres Dropdown erstellen lassen welches bestimmte Werte zur Auswahl hat (einzeön selektierbar und nicht in einer Reihe). Bisher habe ich folgen Quellcode zusammengeschrieben:
Select Case Range("Q56")
Case "1"
Dim ValidationList(4) As String
ValidationList(0) = A
ValidationList(1) = B
ValidationList(2) = E
ValidationList(3) = T
With Range("Q58").Validation
.Delete
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop,
Operator:= _xlEqual, Formula1:=Join(ValidationList, ",")
.IgnoreBlank = True
.InCellDropdown = True
.InputTitle = ""
.ErrorTitle = ""
.InputMessage = ""
.ErrorMessage = ""
.ShowInput = True
.ShowError = True
End With
Ziel in diesem Fall ist es, sobald die 1 im Dropdown in Zellen Q56 selektiert wird, ein weiteres Dropdown in Zellen Q58 zu erstellen welches die Werte A,B,E,T enthält (einzeln selektierbar und nicht linear).
Der Code so wie er oben steht bewirkt bei mir lediglich das ein Dropwdown in Zelle Q58 erstellt wird welches leer ist, sprich keine Werte enthält.
Kann mir jemand helfen oder einen Hinweis geben warum das so sein könnte?
mfG
Robert