Mehrstufige Dropdownliste
31.08.2017 16:14:57
Christoph
ich möchte gerne eine zweistufig Dropdownliste in VBA erstellen. Mit Excel funktioniert es, allerdings habe ich Probleme es in VBA zu erstellen.
Das spuckt mir der Recorder aus:
Cells(2, 1).Select
With Selection.Validation
.Delete
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
xlBetween, Formula1:="=DruckMax"
.IgnoreBlank = True
.InCellDropdown = True
.InputTitle = ""
.ErrorTitle = ""
.InputMessage = ""
.ErrorMessage = ""
.ShowInput = True
.ShowError = True
End With
Cells(2, 2).Select
With Selection.Validation
.Delete
.Add Type:=xlValidateCustom, AlertStyle:=xlValidAlertStop, Operator:= _
xlBetween, Formula1:="=INDIREKT(A2)"
.IgnoreBlank = True
.InCellDropdown = True
.InputTitle = ""
.ErrorTitle = ""
.InputMessage = ""
.ErrorMessage = ""
.ShowInput = True
.ShowError = True
End With
Zuerst habe ich das erste Dropdownfeld über eine Tabelle als Liste erstellt. Hierbei bringt er aber jedoch die Fehlermeldung "Laufzeitfehler '1004'". Danach habe es mit der Liste "DruckMax" probiert und es hat funktioniert. Jedoch komme ich bei der zweiten Stufe nicht weiter. Es kommt wieder selbe Fehler wie schon zuvor. Ist es möglich Tabellen als Werteliste in VBA anzugeben oder gibt es eine bessere Lösung hierfür? Vielleicht kann mir ja jemand weiterhelfen?
VG Christoph