Thema
Zwischensumme als Text
Gruppe
Zwischensumme
Problem
Wie kann ich einer Reihe von Zahlen und Zeichenfolgen mit einer Funktion Zwischensummen bilden, ohne daß diese Zwischensummen in die Endsumme einfließen (z.B. als Übertrag)?
StandardModule: basMain
Function TextSum(rngAct As Object)
Dim rngCell As Range
Dim dblSum As Double
For Each rngCell In rngAct.Cells
If Application.IsNonText(rngCell) Then
dblSum = dblSum + rngCell.Value
End If
Next rngCell
TextSum = CStr(Format(dblSum, "#,##0.00"))
End Function