Hallo Zusammen,
in einer Excel Tabelle habe ich mehrere Blätter. Nun soll in bestimmten Blättern eine neue Spalte eingefügt werden und immer eine Summe von den Spalten links davon gemacht werden.
Ich habe den Code per Macro Recorder gemacht.
Folgendes Problem habe ich jetzt.
Die Summierung soll immer ab B3 beginnen nach unten bis in A kein Wert/Text mehr steht.
Weiter soll die Summe immer aus den Zellen nach Links erfolgen B3:AD3
' **********************************************************************
' Modul: Einfügen einer neuen Spalte mit Summierung
' **********************************************************************
Sheets(Array("M1 Flatter.csp", "M1.csp", "M2 Flatter.csp", "M2.csp", _
"M3 Flatter.csp", "M3.csp", "M4 Flatter.csp", "M4.csp")).Select
Sheets("M1 Flatter.csp").Activate
Columns("B:B").Select
Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
Columns("B:B").Select
Range("B3").Select
Range(Selection, Selection.End(xlToRight)).Select
ActiveCell.FormulaR1C1 = "=SUM(RC[1]:RC[31])"
Range("B3").Select
Selection.AutoFill Destination:=Range("B3:B5000")
Range("B3:B5000").Select
ActiveWindow.SmallScroll ToRight:=-1
Range("B2").Select
ActiveCell.FormulaR1C1 = "Count"
Columns("B:B").Select
With Selection
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlBottom
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = False
End With
Selection.Font.Bold = True
Selection.ColumnWidth = 10
Sheets("Tabelle1").Select
Range("A1").Select