Office: Zeilen Gruppieren mit Summe

Ingo Mergl · 23. Juli 2012

Hi,
ich muss das Thema leider nochmals hoch holen.

Hab euch mal ne Beispieldatei angehängt.
In dieser werden in den jeweiligen Blöcken (Spalte D) die Summe gebildet
In Spalte E werden die Stunden dann in Tage umgerechnet.
In dieser Spalte bekomme ich nun die Blocksummenbildung aber leider nicht hin.

Wäre super wenn jemand dafür ne Lösung hat.

Vielen Dank

IngGi · 23. Juli 2012

Hallo Ingo,

so?

Public Sub BlocksummenEinfuegen()Dim rngB As RangeDim rngA As RangeOn Error Resume NextSet rngB = Range("C4:C" & Rows.Count).SpecialCells(xlCellTypeConstants)If Not rngB Is Nothing Then For Each rngA In rngB.Areas rngA.Offset(rngA.Rows.Count, 0).Resize(1, 1).Formula = _ "=SUM(" & rngA.Address(0, 0) & ")" rngA.Offset(rngA.Rows.Count, 0).Resize(1, 1).Copy _ Destination:=rngA.Offset(rngA.Rows.Count, 1).Resize(1, 1) rngA.Offset(rngA.Rows.Count, 0).Resize(1, 2).Font.Bold = True Next rngAEnd IfEnd Sub VBA/HTML - CodeConverter für ExcelforenAddIn für Excel XP+2003 - komplett in VBA geschrieben von IngGiAnbindung an VBE-Kontextmenü geklaut ;-) bei:
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Gruß Ingolf

Ingo Mergl · 23. Juli 2012

JAAAAAA !!

Super Vielen Dank

Ingo Mergl · 30. Juli 2012

Hi,
ich hoffe ihr köpft mich nicht, da ich das Thema schon wieder ausgrabe, aber wäre es noch möglich 2 Zeilen unter der letzten Blocksumme, die Gesamtsummen aller Blöcke zu berechnen ?

Wäre super.

Vielen Dank

mücke · 31. Juli 2012

Moin Ingo,

Du könntest am Ende mit einer SUMMEWENN-Abfrage die gewünschten Werte holen.
Anbei der angepasste CODE von Ingolf.
Code:

Option Explicit

Public Sub BlocksummenEinfuegen()

Dim rngA As Range
Dim rngB As Range
Dim loletzte As Long

loletzte = Cells(Rows.Count, "B").End(xlUp).Row + 3

On Error Resume Next
Set rngB = Range("C4:C" & Rows.Count).SpecialCells(xlCellTypeConstants)
If Not rngB Is Nothing Then
For Each rnga In rngB.Areas
rnga.Offset(rnga.Rows.Count, 0).Resize(1, 1).Formula = _
"=SUM(" & rnga.Address(0, 0) & ")"
rnga.Offset(rnga.Rows.Count, 0).Resize(1, 1).Copy _
Destination:=rnga.Offset(rnga.Rows.Count, 1).Resize(1, 1)
rnga.Offset(rnga.Rows.Count, 0).Resize(1, 2).Font.Bold = True
Next rnga
End If

Range("C" & loletzte) = _
WorksheetFunction.SumIf(Range("B4:B" & loletzte), "", Range("C4:C" & loletzte))

End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Ingo Mergl · 9. Februar 2021

von mücke

Moin Ingo,

Du könntest am Ende mit einer SUMMEWENN-Abfrage die gewünschten Werte holen.
Anbei der angepasste CODE von Ingolf.
Code:
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Option Explicit

Public Sub BlocksummenEinfuegen()

Dim rngA As Range
Dim rngB As Range
Dim loletzte As Long

loletzte = Cells(Rows.Count, "B").End(xlUp).Row + 3

On Error Resume Next
Set rngB = Range("C4:C" & Rows.Count).SpecialCells(xlCellTypeConstants)
If Not rngB Is Nothing Then
For Each rnga In rngB.Areas
rnga.Offset(rnga.Rows.Count, 0).Resize(1, 1).Formula = _
"=SUM(" & rnga.Address(0, 0) & ")"
rnga.Offset(rnga.Rows.Count, 0).Resize(1, 1).Copy _
Destination:=rnga.Offset(rnga.Rows.Count, 1).Resize(1, 1)
rnga.Offset(rnga.Rows.Count, 0).Resize(1, 2).Font.Bold = True
Next rnga
End If

Range("C" & loletzte) = _
WorksheetFunction.SumIf(Range("B4:B" & loletzte), "", Range("C4:C" & loletzte))

End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Vielen Dank,

es zählt mir aber jetzt alle Werte zusammen.
Soll abe rnur die Blocksummen zählen.
Ich hab mal ne Beispieldatei hochgeladen.
Es sollen nur die rot markierten Werte summiert werden.

Danke

OfficeUser · 1. August 2012

Moin Ingo,

...Es sollen nur die rot markierten Werte summiert werden ...
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

und geanu das macht der CODE ... auch in DEINER Beispielmappe *wink.gif*
Tabelle2

A B C D
3 KW Kostenstelle Stunden/Woche Tage
4 30 1000 1 0,14
5 1001 2 0,29
6 1002 3 0,43
7 6 0,857143
8 31 1000 2 0,29
9 1001 3 0,43
10 1002 4 0,57
11 9 1,285714
12 32 1000 3 0,43
13 1001 4 0,57
14 1002 5
15 12 1
16
17 27
Excel Tabellen im Web darstellen >>

OfficeUser · 9. Februar 2021

von mücke

Moin Ingo,

und geanu das macht der CODE ... auch in DEINER Beispielmappe *wink.gif*
Tabelle2

[parsehtml]<table border="1" cellspacing="0" cellpadding="0" style="font-family:Calibri,Arial; font-size:11pt; background-color:#ffffff; padding-left:2pt; padding-right:2pt; "> <colgroup><col style="font-weight:bold; width:30px; " /><col style="width:62px;" /><col style="width:76px;" /><col style="width:99px;" /><col style="width:62px;" /></colgroup><tr style="background-color:#cacaca; text-align:center; font-weight:bold; font-size:8pt; "><td > </td><td >A</td><td >B</td><td >C</td><td >D</td></tr><tr style="height:18px ;" ><td style="font-size:8pt; background-color:#cacaca; text-align:center; " >3</td><td >KW</td><td >Kostenstelle</td><td >Stunden/Woche</td><td >Tage</td></tr><tr style="height:17px ;" ><td style="font-size:8pt; background-color:#cacaca; text-align:center; " >4</td><td style="text-align:right; ">30</td><td style="text-align:right; ">1000</td><td style="text-align:right; ">1</td><td style="text-align:right; ">0,14</td></tr><tr style="height:17px ;" ><td style="font-size:8pt; background-color:#cacaca; text-align:center; " >5</td><td > </td><td style="text-align:right; ">1001</td><td style="text-align:right; ">2</td><td style="text-align:right; ">0,29</td></tr><tr style="height:18px ;" ><td style="font-size:8pt; background-color:#cacaca; text-align:center; " >6</td><td > </td><td style="text-align:right; ">1002</td><td style="text-align:right; ">3</td><td style="text-align:right; ">0,43</td></tr><tr style="height:18px ;" ><td style="font-size:8pt; background-color:#cacaca; text-align:center; " >7</td><td > </td><td > </td><td style="color:#ff0000; font-weight:bold; text-align:right; ">6</td><td style="color:#ff0000; font-weight:bold; text-align:right; ">0,857143</td></tr><tr style="height:17px ;" ><td style="font-size:8pt; background-color:#cacaca; text-align:center; " >8</td><td style="text-align:right; ">31</td><td style="text-align:right; ">1000</td><td style="text-align:right; ">2</td><td style="text-align:right; ">0,29</td></tr><tr style="height:17px ;" ><td style="font-size:8pt; background-color:#cacaca; text-align:center; " >9</td><td > </td><td style="text-align:right; ">1001</td><td style="text-align:right; ">3</td><td style="text-align:right; ">0,43</td></tr><tr style="height:18px ;" ><td style="font-size:8pt; background-color:#cacaca; text-align:center; " >10</td><td > </td><td style="text-align:right; ">1002</td><td style="text-align:right; ">4</td><td style="text-align:right; ">0,57</td></tr><tr style="height:18px ;" ><td style="font-size:8pt; background-color:#cacaca; text-align:center; " >11</td><td > </td><td > </td><td style="color:#ff0000; font-weight:bold; text-align:right; ">9</td><td style="color:#ff0000; font-weight:bold; text-align:right; ">1,285714</td></tr><tr style="height:17px ;" ><td style="font-size:8pt; background-color:#cacaca; text-align:center; " >12</td><td style="text-align:right; ">32</td><td style="text-align:right; ">1000</td><td style="text-align:right; ">3</td><td style="text-align:right; ">0,43</td></tr><tr style="height:17px ;" ><td style="font-size:8pt; background-color:#cacaca; text-align:center; " >13</td><td > </td><td style="text-align:right; ">1001</td><td style="text-align:right; ">4</td><td style="text-align:right; ">0,57</td></tr><tr style="height:18px ;" ><td style="font-size:8pt; background-color:#cacaca; text-align:center; " >14</td><td > </td><td style="text-align:right; ">1002</td><td style="text-align:right; ">5</td><td > </td></tr><tr style="height:17px ;" ><td style="font-size:8pt; background-color:#cacaca; text-align:center; " >15</td><td > </td><td > </td><td style="color:#ff0000; font-weight:bold; text-align:right; ">12</td><td style="color:#ff0000; font-weight:bold; text-align:right; ">1</td></tr><tr style="height:18px ;" ><td style="font-size:8pt; background-color:#cacaca; text-align:center; " >16</td><td > </td><td > </td><td > </td><td > </td></tr><tr style="height:18px ;" ><td style="font-size:8pt; background-color:#cacaca; text-align:center; " >17</td><td > </td><td > </td><td style="text-align:right; ">27</td><td > </td></tr></table>[/parsehtml]
Excel Tabellen im Web darstellen >>
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Office: Zeilen Gruppieren mit Summe

Zeilen Gruppieren mit Summe

Zeilen Gruppieren mit Summe

Zeilen Gruppieren mit Summe

Zeilen Gruppieren mit Summe

Zeilen Gruppieren mit Summe - Similar Threads - Zeilen Gruppieren Summe

VBA in einer Zeile zu lang

Wenn ein Wert ein einer Spalte, dann komplette Zeile im anderen Blatt untereinander einfügen.

Zeilen gruppieren und zugehörige Spalte aufteilen

Zeilen gruppieren wenn Zelle leer ist

Gruppieren von Zeilen in einer Tabelle (Power Query)

Zeilen / Spalten gruppieren einklappen / ausklappen

Bestimmte Zeilen bei Sortierung beinander halten

	A	B	C	D
3	KW	Kostenstelle	Stunden/Woche	Tage
4	30	1000	1	0,14
5		1001	2	0,29
6		1002	3	0,43
7			6	0,857143
8	31	1000	2	0,29
9		1001	3	0,43
10		1002	4	0,57
11			9	1,285714
12	32	1000	3	0,43
13		1001	4	0,57
14		1002	5
15			12	1
16
17			27