Summe in neue Zeile einfügen
20.02.2013 15:18:14
Stefan
hatte bereits einen Beitrag hioerzu geschrieben, der aber mitlerweile im Archiv gelandet ist und ich weiss nich wie ihn dort bearbeiten kann.
Der User "fcs" hat mir bereits geholfen und ein entsprechende VBA erstellt bzw. das vorhandene geändert.
Leider habe ich nicht erwähnt, dass die neue Zeile unterhalb der Zeile 1 eingefügt weren soll. Die Summe soll dann ab Zeile 3 bis zur letzten Zeile gebildet werden. Die letzte Zeile ist nicht definiert. Aber in jeder Spalte gleich.
Sorry hatte ich beim letzten mal nicht erwähnt...
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