ich bin am Verzweifeln, wer kann helfen
ich mochte String Daten addieren.
Range("B12") = Application.WorksheetFunction.Sum(Range("B7:B11"))
oder statt Range = ErgMehrarbeit gleiche Ergebnis
Leider ist das Ergebnis immer 0
Gruß
Uwe
With Range("B12")
.FormulaR1C1 = "=sumproduct(value(R7C2:R11C2))"
.Formula = .Value
End with
wobei diese Formel nur mit echten Leerzellen zurecht kommt und Zellen mit Formel und dem Ergebnis "" einen Fehler erzeugen.