dorpdown

Private Sub CommandButton2_Click()
....
a = InputBox("Bitte geben Sie eine Programmnummer ein")
b = InputBox("Programmname:")
c = InputBox("Nummer:")

DialogSheets("Dialog1").Show
...

Sub Dropdown4_BeiÄnderung()

Sheets("Daten").Cells(1, 10).Value = DropDown.Value
End Sub

klappt nicht Fehlermeldung Objekt erfordelich

wer kann mir helfen??