FormulaR1C1Local = "=Summe(Z(-Anzahl) geht nicht
14.08.2014 17:12:45
Udo
hier meine nächstes Anfängerproblem:
If spalte = 20 Then Cells(zeile, spalte).FormulaR1C1Local = "=Summe(Z(-Anzahl)S(-4):ZS(-4))" geht so nicht. Eine Variable als Zellbezug funkt hier nicht.
Es handelt sich um eine Schleife.
Hier die ganze Schleife:
For spalte = 20 To 22
zeile = 4 + (Anzahl / 2)
zaehler = 1
For zaehler = 1 To Anzahl * 2 - 2
Cells(zeile, spalte).Select
If spalte = 20 Then Cells(zeile, spalte).FormulaR1C1Local = "=Summe(Z(-Anzahl)S(-4):ZS(-4))"
If spalte = 21 Then Cells(zeile, spalte).FormulaR1C1Local = "=Summe(Z(-Anzahl)S(-4):ZS(-4))"
If spalte = 22 Then Cells(zeile, spalte).FormulaR1C1Local = "=Summe(Z(-Anzahl)S(-4):ZS(-4))"
zeile = zeile + Anzahl / 2
Next zaehler
Next spalte
Gibt es dafür eine Lösung.
mit freundlichen und so