In diesem Beispiel wird die Zelle E5 mit Validierung versehen. Der Bereich A1:A10 enthält die gültigen Werte für die Zelle, und die Zelle zeigt ein Dropdownlistenfeld mit diesen Werten an.
With Range("e5").Validation .Add xlValidateList, xlValidAlertStop, xlBetween, "=$A$1:$A$10" .InCellDropdown = True End With