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
aber laufe in der Set-Zeile auf den Fehler, "Objektvariable oder With-Blockvariable nicht festgelegt". Wahrscheinlich mache ich gerade einen Denkfehler - wer kann mir mal aufs Pferd helfen?Vielen Dank
Hans-Jürgen