Private Sub vwl_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
If KeyCode = 13 Or KeyCode = 9 Or KeyCode = 1 Then
If vwl.Value > 0 Then
Range("B18").Value = -vwl.Value
Range("B15").Value = -vwl.Value
Range("B2").Select
Else
Range("B18").Value = vwl.Value
Range("B15").Value = vwl.Value
Range("B2").Select
End If
End If
End Sub
Problem: Funktioniert so wie gewollt nur wenn ich die Textbox leer stelle und mit Enter bestätige, kommt ein Laufzeitfehler. Ich check es nicht Vielen Dank...für die Profis sicher eine Lachnummer :(