Gruppe
Dialog
Problem
Es soll geprüft werden, ob eine TextBox mit dem Namen txtName im aktiven Blatt existiert.
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