Microsoft Excel

Herbers Excel/VBA-Archiv

aufgezeichnetes Makro verbessern

Betrifft: aufgezeichnetes Makro verbessern von: thomas
Geschrieben am: 29.11.2015 19:53:30

Hallo Excelfreunde,

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

  

Betrifft: AW: aufgezeichnetes Makro verbessern von: Sepp
Geschrieben am: 29.11.2015 19:58:06

Hallo Thomas,

und welche Spalte(n) sollen summiert werden?

Eine Beispieldatei mit Beschreibung wäre hilfreich.

Gruß Sepp



  

Betrifft: AW: aufgezeichnetes Makro verbessern von: thomas
Geschrieben am: 29.11.2015 20:22:11

Hallo Sepp,

erstmal besten dank für dein Interesse an mein Problem. Es sollen jeweils die zwischensummen der Spalten N und O gebildet werden.

Im Beispiel habe ich zwei Tabellen die Ausgangstabelle und mein ich sage mal "Wunschergebnis". Wobei die Formatierung zwar cool sein würde aber in erster Line ist das ergebnis wichtig.

hab schon mal recht vielen dank

libe grüsse thomas


  

Betrifft: Datei vergessen! o.T. von: Sepp
Geschrieben am: 29.11.2015 20:23:10


Gruß Sepp



  

Betrifft: Mist hier ist sie sorry von: thomas
Geschrieben am: 29.11.2015 20:39:52

Hallo Sepp,


man man ich wieder.


danke für den Hinweis.

liebe grüsse thomas

https://www.herber.de/bbs/user/101886.xlsm


  

Betrifft: AW: Mist hier ist sie sorry von: thomas
Geschrieben am: 29.11.2015 20:45:45

Hallo Sepp,

sorry ich hab noch was vergessen,

in der Ausgangstabelle stehen von b10 bis o10 auch Überschriften drinn.


hab sie noch mal angepasst.


https://www.herber.de/bbs/user/101887.xlsm






liebe grüsse thomas


  

Betrifft: AW: Mist hier ist sie sorry von: Sepp
Geschrieben am: 29.11.2015 21:45:48

Hallo Thomas,

anbei deine Datei, das mit den Überschriften passt, die sind unbedingt erforderlich.

https://www.herber.de/bbs/user/101888.xlsm

Gruß Sepp



  

Betrifft: Cool besten dank Sepp von: thomas
Geschrieben am: 30.11.2015 05:22:45

Hallo Sepp,

hab recht vielen dank sogar die Formatierung hast Du gemacht.
Ist echt klasse von Dir.


liebe grüsse thomas.