Rechenfehler?
25.09.2017 11:17:03
Lorenz
Leider liefert folgender Code bei verschiedenen Markierungen auch verschiedene Ergebnisse. In diesem Fall wird in Zeile 13 ein Bereich markiert und im unteren Bereich von Zeile 14 bis Zeile 89 die gefundenen Einträge mit dessen Werten zusammengezählt.
Private Sub K_Sum()
Dim LngColA As Long, LngColE As Long
Dim str150$, strRef$
LngColA = Selection(1).Column
LngColE = Selection(Columns.Count).Column
strRef = Range(Cells(14, LngColA), Cells(89, LngColE)).Address
str150 = WorksheetFunction.Sum(Application.Evaluate("SUMPRODUCT(ISNUMBER(FIND(""I0""," & strRef _
& "))*1)"), _
Application.Evaluate("SUMPRODUCT(ISNUMBER(FIND(""RI""," & _
strRef & "))*7)"), _
Application.Evaluate("SUMPRODUCT(ISNUMBER(FIND(""II""," & _
strRef & "))*8)"), _
Application.Evaluate("SUMPRODUCT(ISNUMBER(FIND(""I1""," & _
strRef & "))*8)"), _
Application.Evaluate("SUMPRODUCT(ISNUMBER(FIND(""I2""," & _
strRef & "))*8)"), _
Application.Evaluate("SUMPRODUCT(ISNUMBER(FIND(""Ss""," & _
strRef & "))*1)"), _
Application.Evaluate("SUMPRODUCT(ISNUMBER(FIND(""Sf""," & _
strRef & "))*1)"), _
Application.Evaluate("SUMPRODUCT(ISNUMBER(FIND(""18""," & _
strRef & "))*4)"), _
Application.Evaluate("SUMPRODUCT(ISNUMBER(FIND(""19""," & _
strRef & "))*3)"), _
Application.Evaluate("SUMPRODUCT(ISNUMBER(FIND(""20""," & _
strRef & "))*2)"))
msgbox str150
End Sub
Gruß
Lorenz