Summe in neue Zeile einfügen

Hallo Zusammen,
möchte in meherern Excel Blättern eine neue Zeile mit Summe einfügen.
Ein VB Script für das einfürgen einer neuen Spalt mit Summe habe ich. Bekomme es aber nicht umgeschrieben in eine neue Zeile mit Summe.
Besten Dank im Voraus!
' **********************************************************************
' Modul: Einfügen einer neuen Spalte mit Summierung
' **********************************************************************
Dim Zeile_L As Long, arrSheets, iSheet As Integer, wks As Worksheet
arrSheets = Array("M1 Flatter", "M1", "M2 Flatter", "M2", _
"M3 Flatter", "M3", "M4 Flatter", "M4")
For iSheet = LBound(arrSheets) To UBound(arrSheets)
Set wks = Worksheets(arrSheets(iSheet))
With wks
Zeile_L = .Cells(.Rows.Count, 1).End(xlUp).Row
.Columns("B:B").Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
.Range("B1").Value = "Count"
If Zeile_L >= 3 Then
.Range(.Cells(2, 2), .Cells(Zeile_L, 2)).FormulaR1C1 = "=SUM(RC[1]:RC[32])"
End If
With .Columns("B:B")
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlBottom
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = False
.Font.Bold = True
.ColumnWidth = 10
End With
End With
Next
Sheets("Tabelle1").Select
Range("A1").Select

Beitrag zum Forumthread

Beitrag zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Stefan,
für Summenformeln unterhalb der letzten Datenzeile sieht es etwa wie folgt aus.
Gruß
Franz

Sub aaSummenformel_in_Zeile()
' Modul: Einfügen einer neuen Zeile mit Summierung
Dim Zeile_L As Long, arrSheets, iSheet As Integer, wks As Worksheet
arrSheets = Array("M1 Flatter", "M1", "M2 Flatter", "M2", _
"M3 Flatter", "M3", "M4 Flatter", "M4")
For iSheet = LBound(arrSheets) To UBound(arrSheets)
Set wks = Worksheets(arrSheets(iSheet))
With wks
'nächste freie Zeile
Zeile_L = .Cells.Find(What:="*", After:=.Cells(1, 1), LookIn:=xlFormulas, _
lookat:=xlWhole, searchorder:=xlByRows, searchdirection:=xlPrevious).Row + 1
If Zeile_L >= 3 Then
.Rows(Zeile_L).Insert Shift:=xlShiftDown, CopyOrigin:=xlFormatFromLeftOrAbove
.Cells(Zeile_L, 1) = "Summe"
'Formeln in Zeile einfügen von Spalte B (2) bis D (4) -Summierung ab Zeile 3
.Range(.Cells(Zeile_L, 2), .Cells(Zeile_L, 4)).FormulaR1C1 = _
"=SUM(R3C[0]:R[-1]C[0])"
'Summenzeile formatieren
With .Range(.Cells(Zeile_L, 1), .Cells(Zeile_L, 4))
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlBottom
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = False
.Font.Bold = True
End With
End If
End With
Next
Sheets("Tabelle1").Select
Range("A1").Select
End Sub

Beliebteste Forumthreads (12 Monate)

1
Beitrag zum Forumthread

Beitrag zu diesem Forumthread

330 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Summe in neue Zeile einfügen

1 Beitrag zum Forumthread Beitrag zu diesem Forumthread

330 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

1
Beitrag zum Forumthread

Beitrag zu diesem Forumthread