Kunden Rabatt Makro mit kleinem Fehler
25.06.2002 20:48:02
Harald
dieses Makro funz nur wenn die aktive Zelle in Spalte G ist sonst bringt es ein falsches ergebnis wie muß man den Code umschreiben?
~begin
Sub KundenRabatt()
Selection.EntireRow.Insert
ActiveCell.FormulaR1C1 = "=SUM(R17C[3]:R[-1]C[3])"
ActiveCell.Offset(0, 1) = "-0,10"
ActiveCell.Offset(0, 3) = "=RC[-3]*RC[-2]"
ActiveCell.Offset(0, 5) = "=RC[-5]*RC[-4]"
ActiveCell.Offset(0, 3).NumberFormat = "#,##0.00 [$€-1];[Red]-#,##0.00 [$€-1]"
ActiveCell.Offset(0, -2) = "=""Wir gewähren Ihnen einen ""& TEXT(RC[3],""0,00 %"") &"" Kundenrabatt aus der Summe ""& TEXT(RC[2],""0,00 €"")"
ActiveCell.Offset(0, -6) = "=R[-1]C+1"
Selection.RowHeight = 40#
Range("J65536").End(xlUp).Select
ActiveCell.Offset(-2, 0) = "=sum(R17C:R[-2]C)"
End Sub
~end
Gruß
Harald