Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1348to1352
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

VBA Code

VBA Code
17.02.2014 12:05:07
BuStue
Hallo Freunde,
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

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: VBA Code
17.02.2014 12:17:07
Rudi
Hallo,
welchen Fehler?
den, dass hier ein t fehlt?
  xtZahlbetrag = Format(CDbl(txtZahlbetrag), "#.##")

Schreib Option explicit in den Header jedes Moduls, dann passiert dir das nicht.
Gruß
Rudi

AW: VBA Code
17.02.2014 13:13:41
BuStue
Hallo Rudi,
recht vielen Dank für Deinen Tip.
MfG
Burghard
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige