ich möchte ein Pulldownmenu über ein Makro anlegen.
Die dazugehörige Gültigkeitsliste ist im Bereich A2:A22 angelegt. Allerdings möchte ich die länge der Liste dynamisch halten, da sie im laufe der Zeit länger wird.
Leider weiss ich nicht wie ich die Abfrage der Spalte A gestalte.
Folgende Code habe ich schon:
Sub Menu()
' Pulldown für Bereich wird angelegt
Range("B6").Select
With Selection.Validation
.Delete
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
xlBetween, Formula1:="=Stammdaten!$A$2:$A$22" ' Dieser Bereich soll automatisch _
angepasst werden
.IgnoreBlank = True
.InCellDropdown = True
.InputTitle = ""
'.ErrorTitle = ""
.InputMessage = ""
.ErrorMessage = ""
.ShowInput = True
.ShowError = True
Application.SendKeys ("%{down}") ' öffnet das Pulldownmenu bei Erstellung
End With
End Sub
Hat jemand eine Idee?Danke schon mal im voraus,
Lupo