Hallo! 

 

Ich wollte für ein Uni Projekt eine kleine VBA Anwendung erstellen um die Berechnung der Position eines Roboters in einem dreidimensionalem Raum durchzuführen. Die Anwendung funktioniert soweit auch sehr gut, jedoch habe ich jetzt folgendes Problem: 

 

Und zwar soll VBA direkt beim Verändern der Textbox prüfen, ob der eingegebene Wert zwischen - 110 und 110 liegt. Im positiven Bereich klappt das auch ohne Probleme  aber sobald ein Miuns ("-") in der Textbox geschrieben wird kommt die msgbox mit der Fehlermeldung. 

 

 

Private Sub G1_Change()

 

Dim oben As Integer

Dim unten As Integer

 

oben = 110

unten = -110

 

If Toleranzen.Value = True Then

 

 

        If Not G1.Value = "" And unten < Val(G1.Value) And Val(G1.Value) > oben Then

        MsgBox ("Bitte die Toleranzen von -110° bis 110° berücksichtigen")

        End If

     

     

Worksheets("Ergebnis").Range("C5") = G1

 

Else

 

 

Worksheets("Ergebnis").Range("C5") = G1

 

End If

End Sub

 

 

 

Ich hoffe ihr könnt mir hier weiterhelfen! 

 

Beste Grüße, 

Clemens