Auswahliste per VBa in zelle
26.09.2016 11:01:11
Jesn
wie kann ich die Funktion so abändern, dass bei Auslösen des Codes alle Zellen der Spalte K von ZEile 20 bis Zeile 31 mit der Auswahliste versehen werden?
Range("J20").Select
With Selection.Validation
.Delete
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
xlBetween, Formula1:="=$F$13:$F$15"
.IgnoreBlank = True
.InCellDropdown = True
.InputTitle = ""
.ErrorTitle = ""
.InputMessage = ""
.ErrorMessage = ""
.ShowInput = True
.ShowError = True
End With
End Sub