Textboxen leeren
17.05.2013 13:47:57
Jonas
nach vielen vorangegangenen Problemen kämpfe ich nun mit dem nächsten Thema.
Ich habe ein Blatt mit vielen TextBoxen, die zur Eingabe verwendet werden.
Wie kann ich die Textboxen alle gleichzeitig per Button leeren?
Hier mein Ansatz, leider erhalte ich "Run-time error '424': Object requiered
Private Sub CommandButton1_Click()
'Alle TextBoxen leeren
Dim oobElement As Object
With Active.Worksheet
For Each oobElement In .OLEObjects
If TypeName(oobElement.Object) = "TextBox" Then
oobElement.Value = ""
End If
Next oobElement
End With
End Sub
Ich kann damit nichts anfangen und weiß keine Lösung.
Bitte helft mir :-)
Thx und Grüße
Jonas