Guten Morgen,
ich habe folgenden Code; das Rechenergebnis im Ergegebisfeld ist nicht korrekt.
Dim c As Long
Dim u As Long
Dim d As Long
If txtOrdersQty1.Value = "" Then
Exit Sub
Else
q = txtOrdersQty1.Value
u = txtOrdersUnitPrice1.Value
d = txtOrdersDisct1.Value
txtOrdersItemSum1.Value = q * (u - ((u / 100) * d))
End Sub
Was habe ich falsch gemacht; was muss ich richtig machen?
P.S.Mein VBA-Kenntnisstand allgemein = siehe Name-Handle...
|