Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.07.2024 18:36:17
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Summe in neue Zeile einfügen

Summe in neue Zeile einfügen
11.02.2013 16:37:06
Stefan
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

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Summe in neue Zeile einfügen
12.02.2013 22:14:27
fcs
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

Anzeige

345 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige