Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

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)?

Lösung
Geben Sie die nachfolgende benutzerdefinierte Funktion in ein Standardmodul ein.

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