VBA Code
17.02.2014 12:05:07
BuStue
ich habe folgenden VBA Code zusammengestellt für ein USERFORM, es soll nach Aufrufen mit einem _ Button ein Form erscheinen in dem ich das Rechnungsdatum, und das Zahlungsziel eingebe, errechnet soll das Zahldatum werden, im gleichen UserForm soll der Rechnungsbetrag und der Skontosatz eigegeben werden so das der Skontobetrag und der Zahlbetrag angezeigt werden.
Private Sub txtZahlungsziel_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If RGDT "" Then
txtEnddatum = RGDT + txtZahlungsziel - 1
End If
If txtRgbetrag "" Then
txtSkontobetrag = CDbl(txtRgbetrag) * CDbl(txtSkonto) / 100
txtSkontobetrag = Format(CDbl(txtSkontobetrag), "#.##")
End If
If txtSkontobetrag "" Then
txtZahlbetrag = CDbl(txtRgbetrag) - CDbl(txtSkontobetrag)
xtZahlbetrag = Format(CDbl(txtZahlbetrag), "#.##")
End If
End Sub
funktionieren tut das Teil zwar, aber nicht so wie gedacht.
Kann da jemand mit dem Plätteisen drübergehen und den Fehler beheben?
MfG Burghard
Anzeige