Zwischensumme bei Seitenwechsel in Excel erstellen
Schritt-für-Schritt-Anleitung
Um die Zwischensumme bei einem Seitenwechsel in Excel zu bilden, kannst du das folgende VBA-Skript verwenden. Dieses Skript fügt eine Zwischensumme nach einer bestimmten Anzahl von Zeilen ein und sorgt dafür, dass der Übertrag auf die nächste Seite erfolgt.
-
Öffne Excel und drücke ALT + F11, um den VBA-Editor zu öffnen.
-
Klicke auf Einfügen und wähle Modul, um ein neues Modul zu erstellen.
-
Kopiere und füge den folgenden Code in das Modul ein:
Sub Zwischensumme()
' Bildet die Zwischensumme der Spalte A nach jeweils 49 Zeilen
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
-
Schließe den VBA-Editor und gehe zurück zu deinem Excel-Dokument.
-
Führe das Makro aus, indem du ALT + F8 drückst, das Makro auswählst und auf Ausführen klickst.
Das Skript rechnet die Zwischensumme in der ersten Spalte (A) nach 50 Zeilen und fügt einen Seitenwechsel ein.
Häufige Fehler und Lösungen
-
Fehler: Das Skript fügt keine Zeilen ein.
Lösung: Stelle sicher, dass du die richtige Anzahl an Zeilen im For-Loop einstellst und dass das Zielblatt aktiv ist.
-
Fehler: Die Zwischensumme wird nicht korrekt angezeigt.
Lösung: Überprüfe die Formel in den Zellen und stelle sicher, dass die Daten in der richtigen Spalte stehen.
-
Fehler: Das Makro läuft nicht.
Lösung: Aktiviere Makros in Excel, da sie standardmäßig deaktiviert sein können.
Alternative Methoden
Eine alternative Methode zur Erstellung von Zwischensummen ist die Verwendung der integrierten Excel-Funktion:
- Wähle die Zellen aus, für die du die Zwischensumme bilden möchtest.
- Gehe zu
Daten > Teilergebnisse.
- Wähle die Spalte aus, für die du die Zwischensumme berechnen möchtest, und klicke auf
OK.
Diese Methode ist einfacher, bietet jedoch weniger Flexibilität als das VBA-Skript.
Praktische Beispiele
Angenommen, du hast in Spalte C Preise aufgelistet. Du möchtest die Zwischensumme vor jedem Seitenwechsel:
- Füge die Preise in Spalte C ein.
- Verwende das oben angegebene VBA-Skript, um die Zwischensumme automatisch zu berechnen und die Seitenumbrüche einzufügen.
So wird in jeder 50. Zeile die Zwischensumme eingefügt, und du erhältst eine klare Übersicht über die Preise.
Tipps für Profis
- Du kannst das Skript anpassen, um die Zwischensumme in einer anderen Spalte zu berechnen, indem du die Spaltenreferenz in
Cells(i, 1) änderst.
- Falls du viele Seiten hast, kannst du das Skript so erweitern, dass es dynamisch an die Anzahl der Zeilen angepasst wird.
- Nutze die Funktion
Worksheet_Change, um automatisch die Zwischensummen zu aktualisieren, sobald Änderungen an den Daten vorgenommen werden.
FAQ: Häufige Fragen
1. Wie kann ich die Zwischensumme auf jeder Seite anzeigen?
Durch das oben aufgeführte VBA-Skript wird die Zwischensumme automatisch vor jedem Seitenwechsel eingefügt.
2. Funktioniert dies in allen Excel-Versionen?
Ja, das VBA-Skript sollte in den meisten modernen Excel-Versionen funktionieren, solange Makros unterstützt werden.
3. Kann ich die Zwischensumme für mehrere Spalten gleichzeitig erstellen?
Ja, du musst das Skript entsprechend anpassen, um mehrere Spalten zu berücksichtigen.