Dem Objekt einen Wert zuweisen
13.02.2018 12:38:54
Hans-Jürgen
ich habe in meiner Anwendung mehrere Ranges definiert und brauche in einigen Fällen die horizontale und die vertikale Summe der Spalten bzw. Zeilen. Später kommt noch etwas mehr dazu, aber ich scheitere schon an der grundlegenden Funktion. Ich habe geschrieben
Function BereichHorizontalSummieren(aktBereich As Object) As Object
Dim lngSpalte As Long
Dim lngZeile As Long
Dim lngSumme As Long
For lngSpalte = 1 To aktBereich.Columns.Count
For lngZeile = 1 To aktBereich.Rows.Count
lngSumme = lngSumme + aktBereich.Cells(lngZeile, lngSpalte)
Next
Set BereichHorizontalSummieren.Cells(1, lngSpalte) = lngSumme
Next
End Function
Vielen Dank
Hans-Jürgen