Value von DropDown
20.09.2007 13:18:00
DropDown
in meiner Datei werden Autofilter über DropDowns ausgelöst. Ich möchte nun über ein Textfeld "Zurücksetzen", das mit einem Makro verknüpft ist, erreichen, dass die Autofilter beim Anklicken auf den ersten Wert ("All") zurückgesetzt wird. Bei dem DropDown handelt es sich um ein Kombinationsfeld aus der Formular-Symbolleiste. Für das Makro habe ich folgenden Code verwendet:
Sub Clearform()
For Each s In Worksheets("Data").Shapes 'Mein Arbeitsblatt heißt Data.
If s.Type = msoFormControl Then
If s.FormControlType = xlDropDown Then _
s.ControlFormat.Value = 1
End If
If s.Type = msoFormControl Then
If s.FormControlType = xlListBox Then _
s.ControlFormat.Value = 1
End If
Next
End Sub
Leider gibt es eine Fehlermeldung, dass die Value-Eigenschaft des DropDowns nicht festgelegt werden kann. Was mache ich hier falsch und wie könnte ich den Code anpassen?
Vielen Dank und schöne Grüße
Tommi