Zwischensumme, Übertrag

Forumthread: Zwischensumme, Übertrag

15.12.2002 18:22:20

raik

Hallo Leute,

stehe hier vor einem verzwickten Problem:

Ich habe in Inventurtabellen die Inventurwerte zu berechnen. Die Tabellen sind teilweise 10 Seiten lang. Ich benötige nun auf den Seiten

1. Seite:
- am Seitenende: lfd. Gesamtsumme (Übertrag)
2. bis 9. Seite:
- am Seitenanfang den Übertrag von der vorherigen Seite
- am Seitenende: lfd. Gesamtsumme (Übertrag)
10. Seite
- am Seitenanfang den Übertrag von der vorherigen Seite
- Endsumme

Endsumme würde ich ganz normal im Arbeitsblatt berechnen.
Die Zwischensummen/Überträge wären ganz praktisch wenn Sie in den Kopf-/Fußzeilen erscheinen könnten.

oder anderer Lösungsansatz:

automatisches kopieren der Tabelle in eine Drucktabelle, in der jeweils am Seitenende die Zwischensumme in die letzte Zeile und auf der nächsten Seite der Übertrag der vorherigen Seite in die erste Zeile eingetragen wird.

ich hoffe ich habe euch nicht zu sehr zu getextet und freue mich schon auf eure Antwort

Besten Dank - raik

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Re: Zwischensumme, Übertrag

15.12.2002 18:27:08

Hajo_zi
Re: Zwischensumme, Übertrag

16.12.2002 15:46:06

raik
Re: Zwischensumme, Übertrag

17.12.2002 12:41:25

UliR
Re: Zwischensumme, Übertrag

18.12.2002 09:41:10

raik

Re: Zwischensumme, Übertrag

15.12.2002 18:27:08

Hajo_zi

Hallo raik

vielleicht hilft Dir das
Zwischesumme 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 statfindet, ermittel 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

Gruß Hajo

Re: Zwischensumme, Übertrag

16.12.2002 15:46:06

raik

hallo hajo,

Danke für die schnelle Antwort.
Mein Problem reicht nun doch noch weiter:
Meine 1.Seite besteht aus 48 Zeilen und die restlichen aus 46 Zeilen. Kannst du mir das programm von Heidrun dementsprechend abändern .

Mit dem Programmteil von Klapperstorch komme ich nicht klar. Kannst du mir bzw. jemand anderer die beiden Programme "Heidrun und Klapperstorch" zusammen in eine funktionierende Sub schreiben.
--> "Zeile = Worksheets(1).HPageBreaks(1).Location.Row 1" bringt bei mir einen Syntaxfehler
ich raffs einfach nicht

Gruß Raik

Re: Zwischensumme, Übertrag

17.12.2002 12:41:25

UliR

Hallo Raik,
vielleicht hilft Dir das Tool "Übertrag" von
http://www.excel-center.de/freeware/ weiter

Gruss
Uli

Re: Zwischensumme, Übertrag

18.12.2002 09:41:10

raik

Hallo Uli

Besten Dank
funktioniert einwandfrei.

Gruß raik

Infobox / Tutorial

Excel: Zwischensumme und Übertrag auf mehrere Seiten

Schritt-für-Schritt-Anleitung
Häufige Fehler und Lösungen
Alternative Methoden
Praktische Beispiele
Tipps für Profis
FAQ: Häufige Fragen

Schritt-für-Schritt-Anleitung

Um die Zwischensumme und den Übertrag in Excel auf mehreren Seiten zu realisieren, kannst du ein einfaches VBA-Makro verwenden. Hier ist eine Schritt-für-Schritt-Anleitung:

Öffne Excel und drücke ALT + F11, um den VBA-Editor zu öffnen.
Klicke auf Einfügen > Modul, um ein neues Modul zu erstellen.

Kopiere und füge den folgenden Code in das Modul ein:

Sub Zwischensumme()
   Dim i As Integer
   Dim a As Integer
   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

Führe das Makro aus. Du kannst dies tun, indem du im VBA-Editor auf Ausführen > Sub/UserForm ausführen klickst oder einfach F5 drückst.
Passe die Zeilenanzahl an: Ändere die Werte entsprechend deiner Tabellengröße (z.B. 48 Zeilen für die erste Seite und 46 für die folgenden Seiten).

Häufige Fehler und Lösungen

Syntaxfehler bei Zeilenanpassung: Achte darauf, dass du den richtigen Code verwendest. Überprüfe, ob du die Zeilen korrekt anpasst, insbesondere bei der Zeile Zeile = Worksheets(1).HPageBreaks(1).Location.Row - 1.
Übertrag erscheint nicht: Stelle sicher, dass die HPageBreaks korrekt gesetzt sind. Manchmal kann es helfen, die Druckereinstellungen zu überprüfen.

Alternative Methoden

Wenn du keine VBA-Makros verwenden möchtest, kannst du die Zwischensumme und den Übertrag manuell einfügen:

Füge am Ende jeder Seite eine SUMME-Formel für die vorherigen Zeilen ein.
Übertrage den Wert manuell auf die nächste Seite, indem du die Zelle kopierst.

Diese Methode ist jedoch weniger effizient und erfordert mehr manuelle Arbeit.

Praktische Beispiele

Hier ein Beispiel, wie du die Zwischensumme in einer Excel-Tabelle einfügen kannst:

Seite 1: Am Ende der Seite trägst du die Zwischensumme ein:
```
=SUM(A1:A48)
```

Seite 2: Beginne mit dem Übertrag:

=B1   ' Hier wird der Wert von Seite 1 übernommen

Wiederhole diesen Vorgang für jede Seite.

Tipps für Profis

Nutze die Funktion =TEILERGEBNIS(9;A1:A48), um automatisch die Zwischensumme zu berechnen. Diese Funktion ist besonders nützlich, wenn du Filter in deiner Tabelle verwendest.
Stelle sicher, dass der Seitenumbruch korrekt festgelegt ist, um die Zwischensumme bei Seitenwechseln richtig anzuzeigen.

FAQ: Häufige Fragen

1. Wie kann ich die Zwischensumme auf jeder Seite anzeigen?
Du kannst das VBA-Makro anpassen, um nach jeder Seite automatisch die Zwischensumme einzufügen.

2. Gibt es eine Möglichkeit, den Übertrag automatisch zu übernehmen?
Ja, durch die Verwendung von VBA kannst du den Übertrag automatisch setzen, wenn ein Seitenumbruch eintritt.

3. Funktioniert das auch in Excel für Mac?
Die meisten VBA-Funktionen sind plattformübergreifend, aber einige spezifische Funktionen können variieren. Stelle sicher, dass du die korrekten Einstellungen für Mac verwendest.

Beliebteste Forumthreads (12 Monate)

Forumthread: Zwischensumme, Übertrag

4 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Infobox / Tutorial

Excel: Zwischensumme und Übertrag auf mehrere Seiten

Schritt-für-Schritt-Anleitung

Häufige Fehler und Lösungen

Alternative Methoden

Praktische Beispiele

Tipps für Profis

FAQ: Häufige Fragen

Beliebteste Forumthreads (12 Monate)

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread