Microsoft Excel

Herbers Excel/VBA-Archiv

Rechenfehler??


Betrifft: Rechenfehler?? von: Lorenz
Geschrieben am: 25.09.2017 11:17:03

Hallo, werte Helfende

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
Erkennt vielleicht jemand das Problem?

Gruß
Lorenz

  

Betrifft: Erledigt von: Lorenz
Geschrieben am: 26.09.2017 10:49:58

Hallo
Dies war falsch:

LngColE = Selection(Columns.Count).Column, dadurch strRef ebenfalls

Gruß
Lorenz