Hilfe! Warum geht das nicht?
15.11.2005 15:48:26
Matthias
habe folgende Prozedur:
Public
Function ausrechnen_oberesanfahrmaßfinal(oberesanfahrmaß, resttraggewichtle, resttragkraft1, resttragkraft2, resttragkraft3, resttragkraft4, resttragkraft5, resttragzuschlag1, resttragzuschlag2, resttragzuschlag3, resttragzuschlag4, resttragzuschlag5)
If resttraggewichtle <= resttragkraft1 Then
oberesanfahrmaßfinal = oberesanfahrmaß + resttragzuschlag1
ElseIf resttraggewichtle <= resttragkraft2 Then
oberesanfahrmaßfinal = oberesanfahrmaß + resttragzuschlag2
ElseIf resttraggewichtle <= resttragkraft3 Then
oberesanfahrmaßfinal = oberesanfahrmaß + resttragzuschlag3
ElseIf resttraggewichtle <= resttragkraft4 Then
oberesanfahrmaßfinal = oberesanfahrmaß + resttragzuschlag4
ElseIf resttraggewichtle <= resttragkraft5 Then
oberesanfahrmaßfinal = oberesanfahrmaß + resttragzuschlag5
End If
End Function
obwohl bei kompilieren er anzeigt, dass oberesanfahrmaß 100 ist und restragzuschlag 200 zeigt er für oberesanfahrmaßfinal 0 an !!!
Warum?
Frage2:
If Eingabe.kopfganghin.Value Eingabe.kopfganghin.Value = hinteresanfahrmaß
minhinteresanfahrmaß = Eingabe.kopfganghin.Value
MsgBox ("Das hinteres Anfahrmaß wurde auf " & minhinteresanfahrmaß & " mm erhöht")
Elseif Eingabe.kopfganghin.Value >= hinteresanfahrmaß Then
MsgBox ("alles roger!")
End If
hinteresanfahrmaß ist ein wert!
obwohl er beim einzelschritt kompilieren zeigt, daß eingabe.kopfganghin 300 sind und hinteresanfahrmaß 1000 erhöht er den wert nicht!!
Warum?
Bitte um hilfe!!
dankeschön
sonnige grüße
matthias