aufgezeichnetes Makro verbessern
29.11.2015 19:53:30
thomas
ich habe in einer Tabelle in Spalte ab B10 Datumswerte. ( die Anzahl ist variabel)
Nun möchte ich gern nach jedem Monatswechsel eine Zwischensumme einfügen.
Die Zwischensumme soll in der Spalte O gebildet werden.
Mein bisheriger Gedanke ist eine neue Spalte einfügen mit einer Formel den Monat/Jahr (Spalte B) zu berechnen und anschließend die Funktion Teilsumme zu benutzen. Dies konnte ich auch aufzeichnen. ( siehe unten). Aber mich stört das ich dazu eine extra Spalte benötige.
Kann mir jemand zeigen wie ich es ohne Extraspalte und ohne select hinkriege?
liebe grüsse thomas
Sub Teilsumme()
' aaaaaaaa Makro
Columns("B:B").Select
Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
Range("B11").Select
ActiveCell.FormulaR1C1 = "=RC[1]-DAY(RC[1])+1"
Columns("B:B").Select
Selection.NumberFormat = "mmmm/yy"
Range("B11").Select
Range("B11").Select
Selection.AutoFill Destination:=Range("B11:B400"), Type:=xlFillDefault
Range("B11:B400").Select
Range("B10").Select
ActiveCell.FormulaR1C1 = "=RC[1]"
Range("B11").Select
Selection.Subtotal GroupBy:=1, Function:=xlSum, TotalList:=Array(14), _
Replace:=True, PageBreaks:=False, SummaryBelowData:=True
Selection.ClearOutline
End Sub