Microsoft Excel

Herbers Excel/VBA-Archiv

Summe bei Seitenende

    Betrifft: Summe bei Seitenende von: Lars
    Geschrieben am: 01.09.2003 13:39:08

    Hallo liebes Forum,

    ich suche eine Möglichkeit, daß automatisch am Seitenende eine Zwischensumme in Spalte v,w und x gezogen wird. Die Summe soll ab Seite 2 die vorstehenden Blätter ebenfalls mit einbeziehen. Hat jemand von Euch eine Idee?

    Beste Grüße

    Lars

      


    Betrifft: Übertrag von: Panicman
    Geschrieben am: 01.09.2003 13:49:15

    Hallo Lars,

    schau mal hier nach:
    http://www.excel-center.de/freeware/artikel.php?ide=ad2001-07-23-1113

    Gruß
    Holger


      


    Betrifft: AW: Übertrag von: Lars
    Geschrieben am: 01.09.2003 16:43:49

    Dank Dir Holger,

    das Tool funktioniert gut. Ich versuch dennoch eine andere Lösung zu finden, da ich die Datei an viele Kunden weiter geben muß. Die sind doof und haben auch bestimmt keine Ahnung von AddIns. :o)

    Beste Grüße

    Lars


      


    Betrifft: AW: Summe bei Seitenende von: Beni
    Geschrieben am: 01.09.2003 15:12:45

    Hallo Lars,
    dieses Makro geht bis Zeile 500
    Gruss Beni

    Sub Zwischensumme_mit_Uebertrag()
    ' Bildet die Zwischensumme der Spalte A nach jeweils 49 Zeilen,
    'fügt einen Seitenwechsel ein und überträgt die Zwischensumme auf die neue Seite
    For i = 50 To 500 Step 50
    a = i + 2
        Rows(i).Select
        Selection.EntireRow.Insert
        Selection.EntireRow.Insert
        Cells(i, 1).FormulaR1C1 = "=SUM(R[-49]C:R[-1]C)"
        Cells(i + 1, 1).Value = Cells(i, 1)
        ActiveWindow.SelectedSheets.HPageBreaks.Add Before:=Cells(i + 1, 1)
    Next i
    End Sub
    



      


    Betrifft: AW: Summe bei Seitenende von: Lars
    Geschrieben am: 01.09.2003 16:35:26

    Danke Dir Beni,

    das hilft mir auf jeden Fall weiter. Kann man diese Aktion auch wieder umkehren? Dann könnte ich das Einfügen den Zwischensummen als BeforePrint verwenden und als AfterPrint wieder entfernen.

    Beste Grüße

    Lars