Live-Forum - Die aktuellen Beiträge
Datum
Titel
16.04.2024 19:22:16
Von exceltabelle in word per steuerelement temarker
16.04.2024 18:50:53
Fehlermeldung bei Code - Excel speichern mit Bez. aus Zelle
16.04.2024 17:18:01
Projektplan-Tabelle oder Gantt ohne Balken
16.04.2024 17:05:25
formatierten Text direkt in Zelle einfügen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
400to404
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
400to404
400to404
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Zwischensumme auf jedes Blatt

Zwischensumme auf jedes Blatt
KLAUS
Hallo Forum,
ich suche eine Möglichkeit, wie ich die Zwischensumme eines Kassenbuchs auf jedes Blatt meines künftigen Ausdrucks zaubern kann. Wer kann mir helfen?
Grüße aus dem Badischen
Klaus

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Zwischensumme auf jedes Blatt
Hajo_Zi
Hallo Klaus
Zwischensumme pro Seite

Sub Zwischensumme()
‚ 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

Von Heidrun
Übertrag automatisch am Seitenende
also das ganze ist nicht ganz so einfach.
Ich hab mich damit auch einige Tage (vielleicht auch Wochen), beschäftigt.
Und langsam ist bei mir meine Rechnungsvorlage gewachsen.
Also die Zeile mit wo der Umbruch stattfindet, ermittele ich immer so
If Worksheets(1).HPageBreaks.Count Then
Zeile = Worksheets(1).HPageBreaks(1).Location.Row – 1
Else
Cells(Rows.Count, 1) = 3
Zeile = Worksheets(1).HPageBreaks(1).Location.Row – 1
Cells(Rows.Count, 1).ClearContents
End If
Allerdings musst du darauf achten, dass schon der Richtige Drucker gewählt ist.
Dann musst du im Prinzip bei jeder Eingabe oder sogar bei jedem Cellenwechsel fragen ob der Seitenumbruch statt findet, und wenn ja dann halt den Übertrag einfügen.
von Klapperstorch
Schau dir aber mal diesen Link an:
http://www.excel-center.de/freeware/artikel.php?ide=ad2001-07-23-1113


Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige