Makrorecorder ;-(
Michael
Danke
Michael
Sub alle_auf_eins()
Dim Dd As DropDown
For Each Dd In Me.DropDowns
Dd.ListIndex = 1
Next Dd
End Sub