Gültigkeit
01.05.2006 14:02:58
Jonathan
ich möchte per Schleife einem Gültigkeitsbereich (Liste) Werte zuweisen.
Wie aber kann ich das machen?
Dies ist das, was ich mit dem Rekorder aufgezeichnet habe:
Sub Makro1()
With Selection.Validation
.Delete
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
xlBetween, Formula1:="2006;2007"
.IgnoreBlank = True
.InCellDropdown = True
.InputTitle = ""
.ErrorTitle = ""
.InputMessage = ""
.ErrorMessage = ""
.ShowInput = True
.ShowError = True
End With
End Sub