Ich sehe nicht das Problem; auch hast du es nicht (gut) erklärt.
Sheets(1).Range("A" & m + 1).Formula = "=IF(L" & m + 7 & "=""Wetterfest"",""wetterfestzs"",IF(L" & m + 7 & "=""Teilung"",""teilungszuschlag"",""""))"
mit 0 <= m < n, wobei n die maximale Anzahl an Zeilen ist.
Als Schleife:
For m = 0 to n - 1
'...
Next
Mit m = 0 ergibt sich die obige Formel also zu
|