Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Prüfen, ob eine TextBox mit vorgegebenem Namen existiert

Gruppe

TextBox

Problem

Es soll geprüft werden, ob eine TextBox mit dem Namen txtName im aktiven Blatt existiert.

Lösung
Geben Sie den nachfolgenden Code in ein Standardmodul ein und weisen Sie ihn einer Schaltfläche zu.

ClassModule: Tabelle1

Function Pruefen(sName As String) As Boolean
   Dim oName As Object
   On Error Resume Next
   Set oName = OLEObjects(sName)
   On Error GoTo 0
   If oName Is Nothing Then
      Err.Clear
      Pruefen = False
   Else
      Pruefen = True
   End If
End Function

Private Sub cmdPruefen_Click()
   MsgBox Pruefen("txtName")
End Sub