VBA-Programmierung in Microsoft Excel

Tutorial: Excel-Beispiele

TextBox im Arbeitsblatt löschen, wenn vorhanden

Gruppe

Dialog

Bereich

TextBox

Thema

TextBox im Arbeitsblatt löschen, wenn vorhanden

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

    


Beiträge aus dem Excel-Forum zu den Themen Dialog und TextBox