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
|