Thema: Summe über dynamischen Bereich bilden

Home

Gruppe

UDF

Problem

ber VBA soll eine Summe über einen dynamischen Bereich gebildet werden. Die erste Zelle ist die Zelle über der Summenformel oder bei VBA-Aufruf - die aktive Zelle, die letzte Zelle die Zelle vor der ersten leeren Zelle.

Lösung

Geben Sie die nachfolgende benutzerdefinierte Funktion in ein Standardmodul ein.

StandardModule: basMain

Sub Aufruf()
   MsgBox DynaSum(ActiveCell)
End Sub

Function DynaSum(Optional rng As Range)
   Dim dSum As Double
   Dim lRow As Long
   Dim iCol As Integer
   If rng Is Nothing Then
      Set rng = Application.Caller
   End If
   iCol = rng.Column
   lRow = rng.Row
   Do Until IsEmpty(Cells(lRow - 1, iCol))
      dSum = dSum + Cells(lRow - 1, iCol)
      lRow = lRow - 1
      If lRow = 1 Then Exit Do
   Loop
   DynaSum = dSum
End Function

Beiträge aus dem Excel-Forum zu den Themen UDF und Summe

Summe durch Erfassung mehrerer Bedingungen	Summe durch Erfassung mehrerer Bedingungen
Summe Summenprodukt nur einmal	summewenn verbessern
Summenprodukt	Zwischensummen innehralb einer Tabelle
SUMMENPRODUKT soll Text zurückgeben	Summe von letzter freier Zelle in Spalte
Summe aus Texten+Zahl mit Bedingung	Summen von zusammengehörenden Zeilen
Summe bilden	Teilergebnis mit Summenprodukt kombiniert
Teilzahlen runden / bestimmte Summe	Index Vergleich Formel mit Summenformel
Matrixformel mit Summenfunktion	Summe VBA in abhängigkeit Datum
SUMMEWENN über mehrere	Summewenn mit Bezug auf ein Datum
Summen bilden	@DAVID Zwei SUMMEWENN funktionen verknüpfen
Zwei SUMMEWENN funktionen verknüpfen	Summe bilden wenn zwei Kriterien übereinstimmen
Summewenn mit meheren Kriterien/Blaettern	Filtern oder Summewenn !?
Summewenn/Summenprodukt mit mehreren Kriterien	alle Zahlen-/Summenkombinationen eines Wertes
Summen Formel	doppelte werte + summe
Formelproblem bei Summenprodukt	SUMMENPRODUKT eine Nummer weiter
Summewenn = Zählenwenn (bei 0)	Summewenn mit abhängigen Bereichen
Summewenn mit abhängigen Bereichen	Frage zu summeWenn
SUMMEWENN auf verschiedene Spalten	Summendprodukt istnummer
summewenn mit Zelle als Suchkriterium	Summenprodukt bei Zahlen folge
Nur Summe bilden wenn keine leeren Zellen	Summe Produkt?
Summe gewichtet	Summenmakro
Lohnsteuerberechnung (UDF, XLM-Datei, Webabfrage)	Alle Summen-Kombinationen aus 1-n Zellen
Summe / Wenn Matrix i.V.m Teilergebnis	Summe von Werten die nur zw. X und Y sind
Summenbildung	Problem mit wertAlles = tbSumme.Value & "+" &a
SummeWenn	Summe und Zählen Wenn