Summieren für mehrere Spalten

Sub BereichSummieren() Dim Bereich As Range Dim lngLastRow As Long Dim i As Integer lngLastRow = Application.Max(3, Cells(Rows.Count, 2).End(xlUp).Row) Range(Cells(lngLastRow, 1), Cells(lngLastRow, 2)).Delete Shift:=xlUp Set Bereich = Tabelle1.Range(Cells(3, 2), Cells(lngLastRow, 2)) Tabelle1.Range("B" & lngLastRow).Value = Application.WorksheetFunction.Sum(Bereich) Tabelle1.Range("A" & lngLastRow).Value = "Bedarfszeit durch Projekte" End Sub

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub BereichSummieren() Dim Bereich As Range Dim lngLastRow, lngLastCol As Long Dim i As Double 'ermittlung der letzten Reihe in der Spalte 2 --> B lngLastRow = Application.Max(3, Cells(Rows.Count, 1).End(xlUp).Row) lngLastCol = Application.Max(2, Cells(2, Columns.Count).End(xlToLeft).Column) 'löschen der beschriebenen Zelle in der die Summe steht. Range(Cells(lngLastRow, 1), Cells(lngLastRow, 2)).Delete Shift:=xlUp 'Festlegung des Bereiches der Zeilen die Summiert werden sollen. Set Bereich = Tabelle1.Range(Cells(2, 2), Cells(lngLastRow, lngLastCol)) 'Wo soll die Beschriftung eingetragen werden, soll mit rutschen. Tabelle1.Range("A" & lngLastRow).Value = "Bedarfszeit durch Projekte" For i = 2 To lngLastCol 'Wo soll die Summe eingetragen werden Tabelle1.Range(i & lngLastRow).Value = Application.WorksheetFunction.Sum(Bereich) Next End Sub

Sub BereichSummieren() Dim Bereich As Range Dim lngLastRow, lngLastCol As Long Dim i, k, l As Double 'Ermittlung der letzten Reihe in der Spalte 2 --> B Bzw. der letzten Zeile lngLastRow = Application.Max(3, Cells(Rows.Count, 1).End(xlUp).Row) lngLastCol = Application.Max(2, Cells(2, Columns.Count).End(xlToLeft).Column) 'löschen der beschriebenen Zelle in der die Summe steht. Range(Cells(lngLastRow, 1), Cells(lngLastRow, lngLastCol)).Delete Shift:=xlUp 'Beginn Summenbildung 'Schleife For i = 2 To lngLastCol For l = 2 To lngLastRow 'Festlegung des Bereiches der Zeilen die Summiert werden sollen. Set Bereich = Tabelle1.Range(Cells(2, 2), Cells(lngLastRow, i)) Next Next 'Wo soll die Beschriftung eingetragen werden, soll mit rutschen. Tabelle1.Range("A" & lngLastRow).Value = "Bedarfszeit durch Projekte" 'Wo soll die Summe eingetragen werden Tabelle1.Range("B" & lngLastRow).Value = Application.WorksheetFunction.Sum(Bereich) End Sub

Hi
man kann sich auch in VBA viel Arbeit sparen, wenn man Excelformeln verwendet:
probier mal:

With Tabelle1.Cells(1, 1).CurrentRegion
With .Rows(.Rows.Count)
.FormulaR1C1 = "=Sum(R2C:R[-1]C)"
.Formula = .Value
.Cells(1, 1).Value = "Bedarfszeit durch Projekte"
End with
End with

Die Hauptfehler in deinem Code sind:
1. Die Ermittlung des Zellbereichs für die Summe (Set Bereich = ...) muss innerhalb der Schleife über die Spalten stehen, weil dieser Bereich ja bei jeder Schleife neu ermittelt werden muss
als Spaltennummer musst du dann den Schleifenzähler i in beiden Cells verwenden
2. wenn du die Zielzelle zum einfügen der Summe über RANGE ermittelst, musst du die Spalte als Buchstabe angeben. Du hast aber keinen spaltenbuchstaben, sondern die Spaltennummer i, also musst du diese Zelle mit Cells ermitteln.
3. Zellbereiche ohne Sheet-Angabe davor beziehen sich immer auf das aktive Sheet. Möchtest du eine Range über zwei Cells Definieren, dann musst du das Blatt vor diesen beiden Cells innerhalb der Range angeben.
also in etwa so für den letzen Teil des Codes:

For i = 2 To lngLastCol
'Wo soll die Summe eingetragen werden
Set Bereich = Range(Tabelle1.Cells(2, lngLastcol), Tabelle1.Cells(lngLastRow - 1, lngLastCol))
Tabelle1.Cells(lngLastRow, i).Value = Application.WorksheetFunction.Sum(Bereich)
Next
End Sub

aber mein erster Code ist deutlich einfacher (keine Variablen, keine Schleifen) und in der Regel auch deutlich schneller (wobei dass nur bei sehr grossen Datenmengen spürbar wird)
Gruss Daniel

HI
die CurrentRegion erweitert den Zellbereich von der Startzelle ausgehend recheckig, bis dieser vollständigen Leerzeilen/Leerspalten oder Blattrand umschlossen ist.
das ist normalerweise der einfachste Weg, eine Tabelle variabler grösse vollständig zu referenzienzieren ohne die Grösse direkt angeben zu müssen.
sollte das Blatt noch mehr Daten enthalten, müssen diese durch Leerzeilen und -spalten abgegrenzt werden.
du kannst aber den so ermittelten Zellbereich mit .RESIZE(zeilen, spalten) in der grösse anpassen und mit .OFFSET(zeilen, spalten) bei Bedarf verschieben.
wenn du also von der Tabelle nur die Spalten 2, 3 und 4 summieren willst, dann:
With Cells(1, 1).CurrentRegion.Resize(, 3).Offset(0, 1)
wenn du die Überschriftenzeile ausschliesen willst dann.
With Cells(1, 1).Resize(.Rows.count - 1).Offset(1, 0)
lässt du bei Offset und Resize einen der beiden Werte nicht an, dann wird der bereich hier nicht verändert.
Gruss Daniel

Sub () With oSH.Cells(LastRow + 2, 4).Range(.Cells(LastRow + 2, 4), .Cells(LastRow + 2, LastCol)) With .Columns(.Columns.Count) .FormulaR1C1 = "=R[-39]C-R[-1]C" .Formula = .Value Selection.AutoFill Destination:=Range(.Cells(LastRow + 2, 4), .Cells(LastRow + 2, LastCol)), _ Type:=xlFillDefault End With End With End Sub

Sub () With oSH.Cells(1, 1).CurrentRegion.Resize(LastRow, LastCol - 3).Offset(1, 3) 'Bereich _ angeben With .Rows(.Rows.Count) .FormulaR1C1 = "=Sum(R7C:R[-1]C)" .Formula = .Value End With End With 'Formel der vorletzte Zeile With oSH.Cells(1, 1).CurrentRegion.Resize(LastRow, LastCol - 3).Offset(2, 3) 'Bereich angeben With .Rows(.Rows.Count) .FormulaR1C1 = "=R[-39]C-R[-1]C" .Formula = .Value End With End With 'Formel der letzten Zeile With oSH.Cells(1, 1).CurrentRegion.Resize(LastRow, LastCol - 3).Offset(3, 3) 'Bereich angeben With .Rows(.Rows.Count) .FormulaR1C1 = "=IF(R[-1]C>=0,"""",ROUNDUP(IF(R[-1]C

Sub () 'Formel der vorletzte Zeile With oSH.Cells(1, 1).CurrentRegion.Resize(LastRow, LastCol - 3).Offset(2, 3) 'Bereich angeben With .Rows(.Rows.Count) .FormulaR1C1 = "=R[-39]C-R[-1]C" 'Von der Zelle LastRow+2 werden die Zellen "bezogen" '[R-39] Muss geänder/variabel gemacht werden End Sub

Beliebteste Forumthreads (12 Monate)

14
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

310 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Summieren für mehrere Spalten

14 Beiträge zum Forumthread Beiträge zu diesem Forumthread

310 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

14
Beiträge zum Forumthread

Beiträge zu diesem Forumthread