Weil Du die Zeichenketten syntaktisch falsch miteinander verbindest:
Cells(Zeile + 11, Spalte + 10).FormulaLocal = _
"=WENN(" & Cells(Zeile + 1, Spalte + 11).Address & "=1;" & Cells(Zeile + 1, Spalte + 10).Address & "/SUMME(" & Cells(Zeile + 1, Spalte + 11).Address & ":" & Cells(Zeile + 10, Spalte + 11).Address & ");0)" & _
"+WENN(" & Cells(Zeile + 1, Spalte + 11).Address & "=1;" & Cells(Zeile + 1, Spalte + 10).Address & "/SUMME(" & Cells(Zeile + 1, Spalte + 11).Address & ":" & Cells(Zeile + 10, Spalte + 11).Address & ");0)" & _
"+WENN(" & Cells(Zeile + 3, Spalte + 11).Address & "=1;" & Cells(Zeile + 3, Spalte + 10).Address & "/SUMME(" & Cells(Zeile + 1, Spalte + 11).Address & ":" & Cells(Zeile + 10, Spalte + 11).Address & ");0)" & _
"+WENN(" & Cells(Zeile + 4, Spalte + 11).Address & "=1;" & Cells(Zeile + 4, Spalte + 10).Address & "/SUMME(" & Cells(Zeile + 1, Spalte + 11).Address & ":" & Cells(Zeile + 10, Spalte + 11).Address & ");0)" & _
"+WENN(" & Cells(Zeile + 5, Spalte + 11).Address & "=1;" & Cells(Zeile + 5, Spalte + 10).Address & "/SUMME(" & Cells(Zeile + 1, Spalte + 11).Address & ":" & Cells(Zeile + 10, Spalte + 11).Address & ");0)" & _
"+WENN(" & Cells(Zeile + 6, Spalte + 11).Address & "=1;" & Cells(Zeile + 6, Spalte + 10).Address & "/SUMME(" & Cells(Zeile + 1, Spalte + 11).Address & ":" & Cells(Zeile + 10, Spalte + 11).Address & ");0)" & _
"+WENN(" & Cells(Zeile + 7, Spalte + 11).Address & "=1;" & Cells(Zeile + 7, Spalte + 10).Address & "/SUMME(" & Cells(Zeile + 1, Spalte + 11).Address & ":" & Cells(Zeile + 10, Spalte + 11).Address & ");0)" & _
"+WENN(" & Cells(Zeile + 8, Spalte + 11).Address & "=1;" & Cells(Zeile + 8, Spalte + 10).Address & "/SUMME(" & Cells(Zeile + 1, Spalte + 11).Address & ":" & Cells(Zeile + 10, Spalte + 11).Address & ");0)" & _
"+WENN(" & Cells(Zeile + 9, Spalte + 11).Address & "=1;" & Cells(Zeile + 9, Spalte + 10).Address & "/SUMME(" & Cells(Zeile + 1, Spalte + 11).Address & ":" & Cells(Zeile + 10, Spalte + 11).Address & ");0)" & _
"+WENN(" & Cells(Zeile + 10, Spalte + 11).Address & "=1;" & Cells(Zeile + 10, Spalte + 10).Address & "/SUMME(" & Cells(Zeile + 1, Spalte + 11).Address & ":" & Cells(Zeile + 10, Spalte + 11).Address & ");0)"
Beispielzelle.FormulaLocal = "Zeichenkette" & "Zeichenkette" & _
"Zeichenkette"
|