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