Dropdown in Zelle mit VBA
01.04.2009 21:08:59
Mone
habe noch einmal ein Anliegen. Mit dem u.g. Code kann ich ein Listfeld in eine Zelle einfügen. Hier gibt mir die Liste die Auswahl zwischen ja und nein. Formula1:=("ja,nein") Das funktioniert prima.
Aber gibt es auch die Möglichkeit, hier eine andere Quelle anzugeben? z.B. mit Rowsource oder so?
hier mal der code (funktioniert einwandfrei):
With ActiveCell(3, 3).Validation
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
xlNotBetween, Formula1:="ja,nein,""" ' kann man hier eine änderung vornehmen, dass man die Auswahl auf eine externe Quelle bezieht?
.IgnoreBlank = True
.InCellDropdown = True
.InputTitle = ""
.ErrorTitle = ""
.InputMessage = "bitte wählen"
.ErrorMessage = ""
.ShowInput = True
.ShowError = False
End With