DropDown in Excel

[toms]

Hab's selber rausgefunden

Code:

Sub DropDown_Change()
  Dim drpdwn As DropDown
  Set drpdwn = ActiveSheet.DropDowns(Application.Caller)

  adr = drpdwn.BottomRightCell.Offset(rowOffset:=0, columnOffset:=1).Address
  Range(adr).Select
End Sub