VBA code for making a Data Validation

[Nils_Junker]

Hi,

I've got 2 worksheets.
1. Dashboard
2. Tabelle1
In the Worksheet "Dashboard" I want in Cell A1 to have a dropdown menu (list)
in the dropdown there should be the following data:
Tabelle1$C$190:$C$193

could somebody try a VBA code
I tried many things but nothing worked.
And yes it has to be a VBA code

Thanks for your help

 

[KOKOSEK]

Sub AddValidation()
 With Sheets("Dashboard").[A1].Validation
        .Delete
        .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:=xlBetween, Formula1:="=Tabelle1!$C$190:$C$193"
        .IgnoreBlank = True
        .InCellDropdown = True
        .InputTitle = ""
        .ErrorTitle = ""
        .InputMessage = ""
        .ErrorMessage = ""
        .ShowInput = True
        .ShowError = True
 End With
End Sub