|
Hallo wieder einmal!
So ich habe wieder ein weiteres Problem bei meinem Userformular.
Und zwar will ich die Werte zweier Textboxen vergleichen wobei die textbox2 ("txtSummeStäbe") einen Bereich von +- 5% abweichung zugeordnet werden soll.
Das heist . in textbox1 ("txtGewicht") steht z.B der Wert 1000,0 in der zweiten textbox("txtSummeStäbe") soll dann der bereich zwischen 950,0 bis 1050,0 also die 5% erlaubt sein.
Die Prozentuelle Abweichung wählte ich desshalb, weil sich der Wert von txtGewicht immer ändert. Somit kann ich keine fixen Zahlen als Abweichung einstellen.
Das ganze spielt sich im SUB "btnSpeichern" in meinem Userformular ab. Zur Zeit schaffe ich es nur mit der exaten Abfrage:
'Kontrolle Stabgewicht zu Auftragsgewicht
If cmbMaschine = "SLW" Then GoTo Zeile1
If cmbMaschine = "HW" Then GoTo Zeile1
If CDbl(txtSummeStäbe.Value) = CDbl(txtGewicht.Value) Then GoTo Zeile1
If MsgBox("Stabgewicht stimmt mit Auftragsgewicht nicht überein!", vbOKCancel + vbCritical, "Fehler") = vbCancel Then
Exit Sub
End If
ICh habe gelesen, dass das mit einem Array funktioniert. Da kenne ich mich leider gar nicht aus. Bitte um eure Hilfe!!
Danke
|