Hallo zusammen,

in einer Tabelle, die ich gerade erstelle möchte ich durch VBA eine Formel in mehrere Zelle eintragen.
Dies realisiere ich durch eine Schleife.

Mein Problem:
In der Formel die wie folgt aussieht

=WENN(ZÄHLENWENN($J$7:$S$7;"<="&F7)=0;0;SUMMEWENN($J$7:$S$7;">="&F7) / ZÄHLENWENN($J$7:$S$7;">="&F7))

befinden sich Anführungszeichen. Ich möchte nun eine Schleife durchlaufen und dabei die in der obigen Formel eingetragene Zeile 7 durch einen variabken Wert ersetzen.
In VBA wollte ich dies wie folgt realisieren:

Worksheets("Daten").Range("G" & DatenZeile).Formula = "=WENN(ZÄHLENWENN($J$" & DatenZeile & ":$AC$" & DatenZeile & ";'<='&F" & DatenZeile ...

Dabei bekomme ich aber aufgrund der Anführungszeichen in der Formel Probleme.

Kann mir jemand einen Tip geben, wie ich meine Formel in die Zellen eintragen kann. Das wäre super und ich sag' schon mal Danke für Eure Hilfe.

Gruß

Peter Stähler