VBA-Programmierung in Microsoft Excel

Tutorial: Excel-Beispiele

Prüfen, ob eine TextBox mit vorgegebenem Namen existiert

Gruppe

Dialog

Bereich

TextBox

Thema

Prüfen, ob eine TextBox mit vorgegebenem Namen existiert

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

    


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