Guten Morgen,
ich nage gerade daran beiliegende Formel mit
der Variablen i auszustatten und schaffe es
seit etwa einer Stunde permanent die falsche
Syntax einzugeben.
Könnte mir jemand netterweise
kurz auf die Sprünge helfen ?
Danke vielmals R.Schmitt
Sub Formeln()
Dim a As Variant
Dim i As Variant
Dim e As Variant
a = 0
i = 0
e = 0
Do Until e = 18
Range("B7").Offset(a, 0).FormulaR1C1 = "=IF(PIVOT!R[-1-i]C[-1]="""","""",PIVOT!R[-1-i]C[-1])"
a = a + 9
i = i + 6
e = e + 1

Loop