VBA: Gültigkeit für eine Zelle zuweisen
André
ich möchte per VBA einer Zelle eine Gültigkeit zuweisen, und zwar eine Liste von Werten, die dann per Dropdown ausgewählt werden können.
Um den hierzu notwendigen Code zu erhalten, habe ich die Gültigkeit manuell zugewiesen und per Makrorekorder aufzeichnen lassen. Dabei habe ich als Kriterien "Liste" und in die Zeile Quelle "1;2;3;4;5;6" eingegeben (ohne Anführungszeichen).
Die Gültigkeit funktioniert auch, der Rekorder hat folgenden Code aufgezeichnet:
With Selection.Validation
.Delete
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
xlBetween, Formula1:="2;3;4;5"
.IgnoreBlank = True
.InCellDropdown = True
.InputTitle = ""
.ErrorTitle = ""
.InputMessage = ""
.ErrorMessage = ""
.ShowInput = True
.ShowError = True
End With
Was mache ich (oder der Makrorekorder) falsch?
Danke für eure Hilfe!
Gruß, André
Anzeige