kann ich leider meinen Reset-button auf der UF nicht mehr nutzen. Ich bekomme hier den LZF 13: Typen unverträglich.
Code vom Resetbutton:
Code:
Private Sub CommandButton10_Click()
Dim objControl As Control
For Each objControl In Controls
Select Case TypeName(objControl)
Case "TextBox"
objControl.Text = ""
Case "ComboBox"
objControl.ListIndex = -1
Case "CheckBox"
objControl.Value = False
Case "OptionButton"
objControl.Value = False
End Select
Next
End Sub
Da muss doch bestimmt noch etwas spezielles dazu, oder?
Und genau deshalb soll man im Einzelschrittmodus durchgehen, dann wäre dir der Fehler aufgefallen. Der Fehler liegt nämlich in den TextBox_Change()-Ereignissen. Jedes mal, wenn du die Textboxen löschst, löst du damit diese Ereignisse aus. Und nachdem du einen Leerstring in den gelöschten Textboxen hast, kann Excel den Befehl nicht ausführen. Denn ein Leerstring kann nicht mit 1 multipliziert werden. Löse es zB so
Code:
Private Sub TextBox1_Change()
If Me.TextBox1 <> "" Then Worksheets("S1").Range("a1").Value = Me.TextBox1
End Sub
Schöne Grüße Berni
Folgende(r) 1 Nutzer sagt Danke an MisterBurns für diesen Beitrag:1 Nutzer sagt Danke an MisterBurns für diesen Beitrag 28 • Silvr