Josef Ehrensberger & Ute ....Buttons löschen - 2
14.02.2005 15:05:45
Jonny
If shp.FormControlType = 0 Then
Leider weiss ich nicht wie ich damit umgehen muss?!
Danke
Sub loescheButton(spalte As Integer)
Dim shp As Shape
For Each shp In ActiveSheet.Shapes
If shp.FormControlType = 0 Then
If shp.TopLeftCell.Column = spalte Then shp.Delete
End If
Next
End Sub
Sub test()
loescheButton 20 'Spalte in der sich die zu löschenden Buttons befinden
End Sub