Public
Sub
DropDownListe1()
ActiveCell.Validation.Delete
ActiveCell.Validation.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Formula1:=
"In,Out"
End
Sub
Public
Sub
DropDownListe2()
Worksheets(
"Tabelle1"
).Range(
"S28"
).Validation.Delete
Worksheets(
"Tabelle1"
).Range(
"S28"
).Validation.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Formula1:=
"A,B,C,D,E"
End
Sub