Formel in jeder zweiten Zelle, nicht Zeile
27.10.2017 15:16:26
Christian
ich steh im Wald und seh die Bäume nicht.
Ich möchte eine Formel aus D6 in jede zweite Zelle unterhalb D6, ab D8 so kopieren, dass der Zeilenindex "mitläuft". Wenn also in D6 = F6+1 steht, soll in D8 = F8 +1 + übernommen werden. Dabei sollen die Werte in jeder n+1nten Zelle stehen bleiben und nicht überschreiben werden. Also F7="CHRISTIAN" soll "CHRISTIAN" bleiben.
Bis hierhin habe ich es geschafft - aber die Formel bleibt starr:
Sub Test2()
Dim intRow As Integer
z = 8
For intRow = 6 To 100 Step 2
Range("A" & z & ":A" & z).Formula = Range("A6:A6").Formula
z = z + 2
Next intRow
End Sub
Vielen Dank und viele Grüße
Christian