Dropdown wird gelöscht
08.09.2005 12:38:43
Martin
Hab folgendes Problem:
Hab ein Blatt mit 2 Bildern, die auf Knopfdruck gelöscht werden sollen.
Funktioniert auch. Allerdings wurden anfangs auch die Buttons gelöscht.
Nun habe ich eine Formel, die alle Bilder(Typ 13) löscht und die Buttons (Typ12) nicht.
So nun habe ich aber noch Dropdownfelder (Typ 8) und die werden leider auch gelöscht.
Wie soll ich nun die Formel ergänzen, damit die Dropdownfelder bestehen bleiben und nur die Bilder gelöscht werden.
Danke.
Gruß
Martin
Private Sub NPlanung_Click()
Dim sh As Shape
For Each sh In ActiveSheet.Shapes
If sh.Type <> 12 Then sh.Delete
Next
End Sub