Formel kopieren 2
31.03.2015 12:26:39
Gunnar
du hattest mir gestern zu dem nachfolgenden Thema eine Lösung gesendet. Ich konnte leider in dem Thread nicht mehr antworten - woran auch immer das liegt. Vorerst vielen Dank für deine Antwort. Für den Zweck des Kopierens einer Formel in mehreren Bereichen super geeignet!
Ich habe meine Frage offensichtlich nicht ganz präzise gestellt:
Kopieren der Formel per VBA:
Sub M1()
Range("G13").Select
ActiveCell.FormulaLocal = "=G12*(1+E$15)"
Range("G$13:G$28").FillDown
End Sub
Die Formel soll bei Ausführung des Makros nicht in alle 50 Bereiche zugleich kopiert werden, sondern in Abhängigkeit der Position im Blatt nur für den jeweils zutreffenden Bereich.
Wäre super, wenn du oder jemand anderes im Forum nochmal helfen könnte.
Vielen Dank im Voraus
Gunnar
Hallo,
so?
Sub aaaa()
Dim i As Long
For i = 7 To 25 Step 6 'G bis Y
Cells(13, i).Resize(16).FormulaR1C1 = "=r[-1]C*(1+r15C[-2])"
Next
End Sub
Gruß
Rudi