Neue Seite -- Übertrag erstellen

Forumthread: Neue Seite -- Übertrag erstellen

10.01.2014 16:11:33

Larcher

Hallo Leute
Ich hab ein Problem
Hab mir eine Vorlage erstellt für Rechnungen
Jetzt ist es so wenn ich mehrere Artikel einfüge dann druckt es mir die Seiten nicht mehr schön säuberlich aus.
Kann ich hier Irgendeinen Code nehmen damit es mir alles schön übernimmt?
Sieht euch mein Muster an ist einfacher zu zeigen als es zu erklären
Tabelle 1 Aktuelle Version
Tabelle 2 so sollte es aussehen
https://www.herber.de/bbs/user/88767.xls
Danke
Mfg Rene

1
Beitrag zum Forumthread

Beitrag zu diesem Forumthread

Betreff

Datum

Anwender

AW: Neue Seite -- Übertrag erstellen

10.01.2014 18:24:39

Hajo_Zi

AW: Neue Seite -- Übertrag erstellen

10.01.2014 18:24:39

Hajo_Zi

Hallo Rene,
ich habe es auch nur im Internet gefunden und selber nicht geteestet.
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

Infobox / Tutorial

Übertragung von Werten auf eine neue Seite in Excel

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

Öffne Deine Excel-Datei: Stelle sicher, dass die Tabelle, in der der Übertrag stattfinden soll, offen ist.
Wechsel in den VBA-Editor: Drücke ALT + F11, um den Visual Basic for Applications (VBA) Editor zu öffnen.
Füge ein neues Modul hinzu: Klicke auf Einfügen und wähle Modul.

Kopiere den VBA-Code: Füge den folgenden Code in das neue Modul ein:

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

Führe das Makro aus: Gehe zurück zu Excel, drücke ALT + F8, wähle Zwischensumme aus und klicke auf Ausführen.
Drucke die Seite: Die Zwischensumme wird nun auf die neue Seite übertragen. Du kannst die Seite drucken, um das Ergebnis zu überprüfen.

Häufige Fehler und Lösungen

Fehler: "Der Code funktioniert nicht": Stelle sicher, dass Du das richtige Arbeitsblatt ausgewählt hast, und überprüfe, ob der Code in das korrekte Modul eingefügt wurde.
Fehler: "Seitenumbrüche werden nicht angezeigt": Überprüfe die Druckereinstellungen und stelle sicher, dass die Seitenumbrüche in den Excel-Optionen aktiviert sind.

Alternative Methoden

Eine alternative Methode zur Erstellung eines Übertrags auf der nächsten Seite ist die Verwendung von Excel-Formeln anstelle von VBA. Du kannst die Funktion SUMME() verwenden, um die Werte aus der vorherigen Seite zu addieren und in die nächste Seite zu übertragen.

Beispiel:

=SUMME(Tabelle1!A1:A49)

Das hier ist eine einfache Möglichkeit, um den Übertrag in einer neuen Zelle auf der nächsten Seite zu erstellen, ohne VBA zu nutzen.

Praktische Beispiele

Beispiel für Rechnungen: Wenn Du eine Rechnung erstellst und die Artikel auf mehreren Seiten verteilt sind, kannst Du die oben genannten Schritte verwenden, um die Zwischensumme auf der ersten Seite zu berechnen und auf die nächste Seite zu übertragen. So hast Du immer eine klare Übersicht über die Gesamtsumme.
Übertrag von Summen: Nutze die Funktion =SUMME(B1:B10) auf der neuen Seite, um automatisch die Summe der vorherigen Seite zu übertragen, indem Du den Zellbereich anpasst.

Tipps für Profis

Verwende bedingte Formatierungen, um die Zellen, die einen Übertrag haben, hervorzuheben. So behältst Du den Überblick über Deine Rechnungen.
Experimentiere mit benutzerdefinierten VBA-Funktionen, die Dir helfen können, spezifische Berechnungen durchzuführen, die über die Standardfunktionen hinausgehen.
Speichere Deine Excel-Datei regelmäßig, besonders nach Änderungen am VBA-Code, um Datenverluste zu vermeiden.

FAQ: Häufige Fragen

1. Wie erstelle ich einen Übertrag auf die nächste Seite ohne VBA?
Du kannst die SUMME-Funktion verwenden und die Zellreferenzen anpassen, um die gewünschten Werte von der vorherigen Seite zu übernehmen.

2. Was mache ich, wenn die Seitenumbrüche nicht korrekt angezeigt werden?
Überprüfe die Druckereinstellungen in Excel und stelle sicher, dass der richtige Drucker ausgewählt ist. Gehe auch in die Seitenlayout-Optionen und passe die Einstellungen dort an.

Beliebteste Forumthreads (12 Monate)

Neue Seite -- Übertrag erstellen

Forumthread: Neue Seite -- Übertrag erstellen

1 Beitrag zum Forumthread Beitrag zu diesem Forumthread

VBA Beispiele zu diesem und ähnlichen Themen

Infobox / Tutorial

Übertragung von Werten auf eine neue Seite in Excel

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)

1
Beitrag zum Forumthread

Beitrag zu diesem Forumthread