Hallo vba-Spezialisten, mit nachfolgendem Code soll der Anteil am Gesamt des jeweiligen Bereiches berechnet werden, d.h. der Gesamtwert steht jeweils in Zeile zz-2 und Spalte "M" . Wie kann ich nun in vba die Zelle (in der der Gesamtwert steht) fixieren, wenn ich die Formel nach rechts kopiere ?
Bekomme den Code nicht hin.
Danke für jegliche Unterstützung.
Gruß PeterK
For zz = 6 To ActiveSheet.Cells(Rows.Count, 12).End(xlUp).Row + 1
If IsEmpty(Range(Cells(zz, 10), Cells(zz, 10)).Value) = True Then
Range(Cells(zz, 10), Cells(zz, 10)).Select 'gefundene Zelle selektieren
ActiveCell.Offset(0, 0) = "Anteil"
ActiveCell.Offset(0, 3).Select
ActiveCell.FormulaR1C1 = "=R[-2]C/R[-2]C[-1]" ' %-ualen Anteil berechnen
Selection.NumberFormat = "0.0%"
End If
Next zz