Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

TextBox im Arbeitsblatt löschen, wenn vorhanden

Gruppe

TextBox

Problem

Es soll geprüft werden, ob im aktiven Blatt eine TextBox vorhanden ist. Wenn ja, soll sie gelöscht werden.

Lösung
Den nachstehenden Code in ein Standardmodul eingeben, einer Schaltfläche zuweisen und starten.

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