Gruppe
Dialog
Problem
Es soll geprüft werden, ob im aktiven Blatt eine TextBox vorhanden ist. Wenn ja, soll sie gelöscht werden.
StandardModule: Modul1
Sub TestDelete()
Dim oTxt As OLEObject
Dim bln As Boolean
For Each oTxt In ActiveSheet.OLEObjects
If TypeName(oTxt.Object) = "TextBox" Then
oTxt.Delete
bln = True
End If
Next oTxt
If bln = False Then
Beep
MsgBox "Keine TextBox zum Löschen vorhanden!"
End If
End Sub