Laufzeitfehler 2110
20.10.2013 11:58:20
Matze
ich werd weil ichs nicht kapiere noch wahnsinnig.
Folgendes läuft und wird auch durchgeführt:
Private Sub UserForm_Initialize()
'Startbild anzeigen
Me.MultiPage1.Value = 0
'beim Aufruf der UF soll halt das passieren - Status geht
With frmEingabe.MultiPage1.Pages(3)
.TextBox81.Value = "00"
.TextBox82.Value = "00"
.TextBox83.Value = "0000"
End With
End Sub
Nun soll er folgendes mit Jeder der 3 TextBoxen machen (hab nur mal die TB81 eingestellt)Private Sub textbox81_change()
If Len(TextBox81) = 2 Then
TextBox82.SetFocus
End If
End Sub
Einzeln funktionieren beide Codes, aber Zusammen wird nach dem "UserForm_Initialize"ein Laufzeitfehler 2110 in der "fett" markierten Zeile ausgelöst.
Bewirkt denn .TextBox81.Value = "00" das schon einen Change aus? Kopfkratz
Es soll später so sein , wenn ich keine Werte in die TB81-83 eingebe müssen die mit 0 gefüllt sein, ansonsten wollte ich Zahlen eingeben und den Change nutzen um in die nächste TB zu springen.
Dankend Matze