Excel VBA Formulalocal Problem

Hallo Experten,

bei dem Versuch mittels Formulalocal eine Spalte mit Formeln zu füllen, die sich jeweils auf die nebenstehende Zelle beziehen, schreibt VBA den Text buchstäblich in die jeweilige Zelle, d.h. „i“ wird nicht als Variable interpretiert. Kann mir jemand die richtige Schreibweise nennen?

Set k = Sheets(„Tabelle1“).Range(„k2“)
For i = 2 To 50
k.FormulaLocal = „=Zählenwenn(B1:H20;J&i)“
Set k = k.Offset(1, 0)
Next i

Danke Bräsig

Hallo Bräsig,

versuchs mal mit
k.FormulaLocal = „=Zählenwenn(B1:H20;J“ & i & „)“

Gruß, Andreas

[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]

Hallo Andreas,

vielen Dank, läuft wie geschmiert!

Gruß Bräsig

[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]