Hallo zusammen,
In meinem Programm soll immer eine Fehlermeldung kommen wenn eine Null in einem Textfeld eingetragen wird, ausser bei der TextBox64 dort soll es erlaubt sein. Allerdings ist das Attribut Name für das OLE Automatisierungsobjekt nicht erlaubt, Text aber z.B. schon.
Weiss vielleicht jemand woran das liegt?
Danke,
Grüssle
Johanna
Dim sh As Shape
For Each sh In ActiveSheet.Shapes
If TypeOf sh.OLEFormat.Object Is OLEObject Then
If TypeOf sh.OLEFormat.Object.Object Is MSForms.TextBox Then
Fehler -> If sh.OLEFormat.Object.Object.Name „TextBox64“ Then
If sh.OLEFormat.Object.Object.Text = „0“ Then
Msg(„Bitte keine Null eingeben“)
End If
End If
End If
End If
Next