Teilsummen bilden
16.03.2021 12:38:51
Despina
ich möchte in meiner Gesamtliste in einer mehreren Zellen eine bestimmte Teilsumme mittels VBA erstellen.
Dies habe ich soweit so gelöst:
Ich hab erst die letzte Zeile identifiziert und dann die Teilsummen in die entsprechende Stelle in der Gesamtliste objShtZiel eingepflegt.
letzteZeile = objShtZiel.Range("A:FK").Find("*", LookIn:=xlValues, Lookat:=xlPart, searchdirection:=xlPrevious).Row
objShtZiel.Cells(4, 19).Value = WorksheetFunction.Sum(objShtZiel.Range("S7:S" & letzteZeile))
objShtZiel.Cells(4, 20).Value = WorksheetFunction.Sum(objShtZiel.Range("T7:T" & letzteZeile))
objShtZiel.Cells(4, 23).Value = WorksheetFunction.Sum(objShtZiel.Range("W7:W" & letzteZeile))
objShtZiel.Cells(4, 27).Value = WorksheetFunction.Sum(objShtZiel.Range("AA7:AA" & letzteZeile))
objShtZiel.Cells(4, 28).Value = WorksheetFunction.Sum(objShtZiel.Range("AB7:AB" & letzteZeile))
objShtZiel.Cells(4, 31).Value = WorksheetFunction.Sum(objShtZiel.Range("AE7:AE" & letzteZeile))
objShtZiel.Cells(4, 32).Value = WorksheetFunction.Sum(objShtZiel.Range("AF7:AF" & letzteZeile))
objShtZiel.Cells(4, 35).Value = WorksheetFunction.Sum(objShtZiel.Range("AI7:AI" & letzteZeile))
objShtZiel.Cells(4, 37).Value = WorksheetFunction.Sum(objShtZiel.Range("AK7:AK" & letzteZeile))
Manche Summen werden gebildet. Bei anderen stockt der allerdings und es tritt der Laufzeitfehler 1004: Die Sum-Eigenschaft des Worksheet-Function Objektes kann nicht zugeordnet werden.
Vielen Dank!
Despina