Dropdownmenü verschwindet bei Ausführung eines Mak
14.02.2005 16:14:07
Jonny
Sub löschen ()
On Error Resume Next
Dim z As Integer
For z = 1 To ActiveSheet.Shapes.Count
If ActiveSheet.Shapes(z).TopLeftCell.Column = 20 Then
Rows(ActiveSheet.Shapes(z).TopLeftCell.Row).Delete
ActiveSheet.Shapes(z).Delete
End If
Next z
End Sub
PS: Ich hab auch die Gültigkeitsprüfung überprüft ...alles stimmt..mit den Voreinstellungen überein.?!
Anzeige