Summe in Abhängigkeit von leeren Feldern.

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Andi,
ein Makro oder auch eine entsprechende benutzdefinierte Function sehen etwa wie folgt aus.
Gruß
Franz 'Code in einem allgemeinen Modul Sub SummeSpezial() Dim dblSumme() As Double Dim Zeile As Long, Zeile2 As Long Dim Spalte As Long Const Spa1 = 2 '1. Spalte, die summiert werden soll Const spa2 = 6 'letzte Spalte, die summiert werden soll Const AnzZeilenDS = 3 'anzahl Zeilen pro Datensatz ReDim dblSumme(Spa1 To spa2) With ActiveSheet For Zeile = 2 To .Cells(.Rows.Count, 1).End(xlUp).Row Step AnzZeilenDS For Spalte = Spa1 To spa2 For Zeile2 = Zeile + AnzZeilenDS - 1 To Zeile Step -1 If Not IsEmpty(.Cells(Zeile2, Spalte)) Then dblSumme(Spalte) = dblSumme(Spalte) + .Cells(Zeile2, Spalte) Exit For End If Next Zeile2 Next Spalte Next 'Summenwerte ausgeben Zeile = 2 For Spalte = Spa1 To spa2 .Cells(Zeile, 9) = "Summe " & .Cells(1, Spalte).Text 'Spalte I .Cells(Zeile, 10) = dblSumme(Spalte) 'Spalte J Zeile = Zeile + 1 Next Spalte End With End Sub Function fncSummeSpezial(WerteBereich As Range, Optional AnzZeilenDS As Long = 3) ' WerteBereich = Zellbereich in einer Spalte mit den Werten ' AnzZeilenDS = Anzzahl Zeilen pro Datensatz Dim dblSumme As Double Dim Zeile As Long, Zeile2 As Long With WerteBereich For Zeile = 1 To WerteBereich.Rows.Count Step AnzZeilenDS For Zeile2 = Zeile + AnzZeilenDS - 1 To Zeile Step -1 If Not IsEmpty(.Cells(Zeile2, 1)) Then dblSumme = dblSumme + .Cells(Zeile2, 1) Exit For End If Next Zeile2 Next End With 'Summenwerte ausgeben fncSummeSpezial = dblSumme End Function

…zufällige Positionierung, Werner,
denn eigentlich sollten „Spalten“-Summen ja auch optisch ihren Spalten zugeordnet sein. Das umzukehren, bedeutet Zusatzaufwand mit deutlicher Fml-Verlängerung.
2 Zusatzzeilen ist richtig, aber da ein Block 3 hat, schien mir diese Angabe sinnvoller, falls danach noch eine andere Tabelle folgen soll.
Hatte das auch versucht, auf der Basis von VERWEIS, der immer den letzten nicht-leeren Wert findet (wichtig, falls 0 auch ein zulässiger Wert wäre). Leider ließ sich eine (hilfszellenfreie) Summe dann entweder nur durch separate Angabe aller Blöcke oder unter Zuhilfenahme meiner Auswertungs-UDFs realisieren. Letztere Fml ist nach bisherigem Stand auch nicht kürzer oder eleganter als deine. Ich habe nun auch nicht alle meine UDFs so gut im Kopf, dass mir spontan eine bessere Variante einfallen würde. Auch fürchte ich, dass die dann auf solche UDFs hinausliefe, die entweder nur ich oder höchstens noch 2(!) weitere AWer besitzen/kennen, weshalb ich mich (noch) nicht weiter damit befasst habe.
Aber ich hatte von dir eigentlich eine AGGREGAT-Lösung erwartet… ;-)
Gruß, Luc :-?

Beliebteste Forumthreads (12 Monate)

	A	B	C	D	E	F	G
1	Wert3	1	2	1	2
2	Werta	1,5	3			Summe 1	14,5
3	Wertb		6			Summe 2	16
4	Wertc			1,5	6
5	Werta	2	4
6	Wertb	3
7	Wertc		5	3	5
8	Wert	5	5
9	Wert
10	Wert	10		10	5

Summe in Abhängigkeit von leeren Feldern.

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

302 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Summe in Abhängigkeit von leeren Feldern.

8 Beiträge zum Forumthread Beiträge zu diesem Forumthread

302 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread