auch ich habe mal eine Frage zum DropDown Thema.
Ich möchte in der Zellen R5:R504 eine DropDown-Liste mit den Werten angezeigt haben, die ich zuvor in die Zellen BA5:BA9 kopiert habe. Laut Makro-Rekorder wäre die Syntax:
Range("R5:R504").Select
With Selection.Validation
.Delete
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
xlBetween , Formula1:="=$BA$5:$BA$9"
.IgnoreBlank = True
.InCellDropdown = True
.InputTitle = ""
.ErrorTitle = ""
.InputMessage = ""
.ErrorMessage = ""
.ShowInput = True
.ShowError = True
End With
Nun ist es jedoch so, dass die Liste mit den gültigen Werten flexibel lang ist. Heisst aus BA5:BA9 kann auch BA5:BA20 werden. Ich dachte mir, die Anfangs- und Endzelle zu ermitteln, und diese dann einzubauen:
Range("BA5").Select
ListeAnfang = ActiveCell.Address
Selection.End(xlDown).Select
ListeEnde = ActiveCell.Address
Leider funktioniert es nicht so wie ich dachte:
xlBetween, Formula1:=Range(ListeAnfang, ListeEnde)
Hat jemand eine Idee? Vielen Dank.
AndreasE