ich habe eine TextBox in den eine Zahl eingetragen wird und diese in die Excel Tabelle übertragen wird.
Private Sub TextBox1_Change()
Range("D3").Value = TextBox1 * 1
End Sub
Das Problem ist ich kann den Wert nicht ändern. Da wenn ich die Löschen Taste auf der Tastatur drücke kommt:Laufzeitfehler'13': Typen unverträglich
Außerdem würde ich gerne, da es sich um mehrere Textboxen handelt durch einen Button alle einträge löschen. Versucht habe ich dies mit:
Private Sub btnFelderLeeren_Click()
TextBox1 = ""
End Sub
Auch hier erhalte ich:
Laufzeitfehler'13': Typen unverträglich
Mit dieser Variante erhalte ich die selbe Fehlermeldung.
Was muss ich ändern.
Private Sub btnFelderleeren_Click()
Dim objControl As Control
For Each objControl In Controls
Select Case TypeName(objControl)
Case "TextBox"
objControl.Text = ""
End Select
Next
End Sub