Formel Kopieren

Question

Hallo erst ein mall !! Habe da ein Problem... vieleicht kan mir ja jemand Helfen... Ich möchte eine formel nach unten kopieren in jeder driten zeile... z.b

A
96 =Tabelle1!A109
97
98
99=Tabelle1!A110
100
101
102=Tabell1!A111
103
104
106=Tabelle1!A112
.
.
.
.
995=Tabelle1!A408
wie bekomme ich das hin ohne jede formel von hand ein zu geben.???
für eure hilfe schon mal vielen dank
gruß nero.

Answer 1

Hallo nero,

das kannst Du mit folgendem Makro erledigen.

Option Explicit

Sub insert_formula()
Dim rngC As Range, intZ As Integer
intZ = 108
For Each rngC In Range("A96:A996")
If rngC.Row Mod 3 = 0 Then
rngC.Formula = "=Tabelle1!A" & intZ
intZ = intZ + 1
End If
Next
End Sub

Gruß
Rainer

Answer 2

super Danke Rainer !!!!
hat geklappt.......
gruß nero