Hallo Ihr...vielleicht kann mit jemand helfen. Beim Ausführen dieses Programms erscheint immer wieder die Meldung Fehler beim Kompilieren, Sub oder Function nicht definiert. Sieht jemand den Fehler. Er makiert dabei immer das CLong.
Liebe Grüße
Julia
Private Sub CommandButton2_Click()
Dim N As Integer, Datum As Date
Worksheets("Lieferanten").Activate
Datum = CDate([Rechnungsdatum].Value) + CLong(Cells(8 + N, 9).Value)
If Datum >= Date Then
[Skontobetrag].Value = CCur([Rechnungsbetrag].Value) * CDbl(Cells(8 + N, 8).Value) / 100
[Zahlungsbetrag].Value = CCur([Rechnungsbetrag].Value) - CCur([Skontobetrag].Value)
End If
End Sub |