Hallo,
anbei der Formelumbau,
da ich davon ausgehe, dass die Formeln SI und Arrondi, spezielle Formeln sind, habe ich die Formel in eine Wenn Dann Funktion geändert.
Das Prinzip bleibt allerdings das gleiche.
ActiveCell.FormulaR1C1 = "=IF(RC[-3]=0,"""",Round(RC[-2]/RC[-3],2))"
R = steht für die Zeile in der du dich befindest, da die Zeile gleich der angeklickten Zellenadresse entsprechen soll, muss hier nichts geändert werden.
C = steht für die Reihe in der du dich befindest, da du erst die Reihe C prüfst musst du also von der aktuellen Zellenadresse F den Wert 3 abziehen. Dann befindest du dich in der Reihe C. Gleiches Vorgehen gilt für die Spalte D bei dieser musst du den Wert 2 abziehen!
Bitte beachte, durch dieses Prozedur wird a. nur die Formel eingefügt, ein ; in der Formel entspricht einem , im VBA Code.
Solltest du andere Zeilen berechnen wollen, so musst du die Formel anpassen.
Gruß
Benjaminus
|