|
Guten Tag,
ich möchte gerne innerhalb eines Moduls, welches mit einem Button verbunden ist, einen Code für eine DropDownzelle implementieren.
Wenn möglich innerhalb des Moduls als eigene Sub.
Aktuell habe ich:
Public Sub()
bla bla bla
End Sub
_____________________
Public Sub DropDownListe()
Worksheets("Tabelle1").Select
Range("S28").Activate
ActiveCell.Validation.Delete
ActiveCell.Validation.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Formula1:="In,Out"
Worksheets("Tabelle1").Range("S28").Validation.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, _
Formula1:="A,B,C,D,E"
End Sub
Leider habe nach anwählen des Buttons keine DropDown in S28. Wo genau stehe ich denn auf dem Schlauch?
|