Hallo Zusammen,
ich habe folgenden Code - welcher durchläuft, aber ich denke dieser liefert mir das falsche Ergebnis weil irgendwas fehlt. Vll. sieht das einer ja ganz schnell:
HeutigeÜberweisung221 = SumCreditNeu221 + SumDiffNeu221 - RestAbschlag221 - SumAbschlagNeu221
If SumDiffNeu221 > 0 Then
If HeutigeÜberweisung221 MsgDiff221 = MsgBox("Betrag zur Verrechnung der Kundendifferezen (221) nicht ausreichend! Überweisung vom Partner anfordern?", vbYesNo, "Verrechnungsbetrag nicht ausreichend")
last = Tabelle14.Cells(Rows.Count, 1).End(xlUp).Row + 1
If MsgDiff221 = 6 Then Tabelle14.Cells(last, 3).Value = CCur(SumDiffNeu221 * -1)
If MsgDiff221 = 6 Then Tabelle14.Cells(last, 2).Value = "Differenzanford."
If MsgDiff221 = 6 Then Tabelle14.Cells(last, 1).Value = Date
If MsgDiff221 = 6 Then Tabelle1.Cells(9, 13).Value = 0
If MsgDiff221 = 7 Then Tabelle14.Cells(last, 3).Value = CCur(SumDiffNeu221 * -1)
If MsgDiff221 = 7 Then Tabelle14.Cells(last, 2).Value = "Differenzverr."
If MsgDiff221 = 7 Then Tabelle14.Cells(last, 1).Value = Date
If MsgDiff221 = 7 Then Tabelle1.Cells(9, 13).Value = 0
End If
End If
Ist das erste if kleiner als 0 - soll nichts passieren.
Vielen Dank - beste Grüße
Andl