Live-Forum - Die aktuellen Beiträge
Datum
Titel
18.04.2024 21:09:11
4 Spalten aus smarter Tabelle in andere smarte Tab. kopieren
18.04.2024 20:45:35
Worksheet_Activate für alle Sheets
18.04.2024 19:30:20
VBA - Tabelle mit Mannschaftsergebnissen sortieren
18.04.2024 18:04:29
Formel fehler Wert#
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1028to1032
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
1028to1032
1028to1032
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Seitenumbruch per VBA

Seitenumbruch per VBA
04.12.2008 10:03:00
KlausL
Hallo zusammen,
ich habe ein Formatierungsproblem und hoffe auf Eure Unterstützung. In meiner beigefügten Tabelle werden verschiedene Produkte aufgeführt, die mit Zuschlägen belegt werden. Am Ende steht die Gesamtsumme. Ich habe mir ein Modul aufgezeichnet mit dessen Hilfe ich die Seite formatiere. Mein Problem besteht nun darin, den Seitenumbruch per VBA immer unter der letzten möglichen Gesamtsumme auf der jeweiligen Seite einzurichten. Vielen Dank bereits jetzt für Hinweise und Hilfestellungen.
Beste Grüße Klaus
https://www.herber.de/bbs/user/57337.xls

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

Betreff
Datum
Anwender
Anzeige
AW: Seitenumbruch per VBA
04.12.2008 19:07:15
KViertel
Hallo Klaus,
Sieh Dir mal diesen Beitrag an. Ich hatte das gleiche Problem. Zur Unterscheidung z.B. nach Gesamtsumme suchen.
www.herber.de/forum/archiv/1024to1028/t1025526.htm
mfG. Klaus
AW: Seitenumbruch per VBA
05.12.2008 08:21:00
M.
Hallo,
ich wollte helfen und hab den Code den ich hier bei Herber gefunden habe auf das Problem umgebaut.
Ursprungscode: https://www.herber.de/mailing/053799h.htm
Meine Variante bezogen auf die Fragestellung:

Sub Seitenumbruch()
Dim varPB As Variant
Dim iPage As Integer, iRowL As Integer
Dim k As Integer
iRowL = Cells(Rows.Count, 1).End(xlUp).Row
iPage = 1
'zunächst die Seitenumbrüche zurücksetzen
ActiveSheet.ResetAllPageBreaks
Do While IsError(varPB) = False
varPB = ExecuteExcel4Macro("INDEX(GET.DOCUMENT(64)," & iPage & ")")
If IsError(varPB) Then
Exit Sub
Else
If Cells(varPB - 1, 1)  "Gesamtsumme" Then
For k = varPB - 1 To 1 Step -1
If Cells(k, 1) = "Gesamtsumme" Then
ActiveSheet.HPageBreaks.Add Before:=Cells(k + 1, 1)
Exit For
End If
Next k
End If
End If
iPage = iPage + 1
Loop
End Sub


Leider funktioniert das noch nicht 100%ig. Folgendes Phänomen: Wenn ich den Code im VBA Editor im Einzelschrittmodus durchlaufen lasse funktioniert alles perfekt und die Seitenumbrüche werden richtig gesetzt. Starte ich die Prozedur aber von einem Command Button im Arbeitsblatt werden einige Seitenumbrüch nicht richtig gesetzt.
Wo liegt der Unterschied? Ich kann mir nicht erklären, warum es im Einzelschrittmodus funktioniert. Das würde mich schon interessieren. :-)
Hier die angepasste Beispieldatei: https://www.herber.de/bbs/user/57357.xls
Viele Grüße
Rudi

Anzeige
AW: Seitenumbruch per VBA
05.12.2008 09:59:56
KViertel
Hallo Klaus,
Zu Deinem Problem kann ich Dir auch nichts sagen.
Wenn man Einzelschrittweise mit F8 durchläuft, funktionierts. Den Cursor in den Code gesetzt, 1x F8 gedrückt, den Cursor vor Exit gesetzt und Strg F8 gedrückt ergibt Durcheinander. Ausführung mit F5 bringt Durcheinander. Datei öffnen, ohne etwas sonst zu verändern, Ansicht auf Seitenumbruchvoranzeige umstellen, Seitenvorschau anzeigen lassen - ergibt Durcheinander.
Bei mir entfernte Excel einen Teil der automatischen Umbrüche nicht. Deshalb wird jede Zeile daraufhin kontrolliert, ob ein automatischen Umbruch vorhanden ist. Wenn ja löschen. Seither funktionierts.
MfG. Klaus
Anzeige
AW: Seitenumbruch per VBA
08.12.2008 12:35:00
KlausL
Hallo Klaus, hallo Rudi,
sorry, dass ich mich erst heute bedanke, ich hatte Netzprobleme.
Rudi, ich habe die angepasste Datei geladen, nach dem ersten Testlauf habe ich alle Seitenumbrüche manuell gelöscht, danach wurden die Umbrüche korrekt unter der Gesamtsumme gesetzt. Vielen Dank, es ist eine gute Ausgangsbasis.
Beste Grüße
Klaus

299 Forumthreads zu ähnlichen Themen

Formel automatisch durch Wert ersetzen (vba)
Tanja

Hallo liebe Leute,
Ich hab in meiner excel-Mappe, in den Zellen: M2:M14 Formeln, die eine ganze Zahl als Ergebnis erzeugen.
So, und nun möchte ich das 1. Berechnungs-Ergebnis quasi "einfrieren".
Mein Problem: Ich möchte kein Makro per Hand auslösen müssen, sondern der Code soll voll...
07.08.2008 21:59:00
Thread-ID: 1000110
5 Beiträge
Anzeige
Copy Paste Problem mit VBA
Chris

Hallo Leute,
ich habe ein Makro geschrieben, das ein aus SAP gezogenes Spreadsheet in ein formatiertes Excel File umwandelt.
Jetzt taucht plötzlich folgendes Problem auf:
Ein String wird in Zelle "A1" geschrieben, der Buchstaben und steuercode enthält.
D.H. ich habe in dieser Ze...
08.08.2008 15:10:35
Thread-ID: 1000317
11 Beiträge
Watchdop für VBA
peter

Hallo VBA Cracks,
Im 5 Minuten-Abstand hole ich mir via Webabfrage Daten aus dem Internet. Nun kann es passieren, dass das VBA Programm bei einer Abfrage z.B. mehr als 5 Minuten hängen bleibt, was ungewollt ist.
Kann man ein solches Problem umgehen, wenn man mit VBA einen Watchdog reali...
11.08.2008 17:39:00
Thread-ID: 1000934
5 Beiträge
Anzeige
VBA-Formel um nur Berechnungswerte einzutragen
Matthias

Hallo Excel und Makrofans.
Ich habe folgende 2 Probleme. Erstmal zum ersten Problem:
Ich habe eine Datei in der ich Daten (Betriebsparameter [Druck, Temperatur usw.]) aus einem externen Programm einlese. Aus diesen Werten möchte ich gerne einige Werte Berechnen.
Zur Zeit mache ich d...
12.08.2008 08:51:00
Thread-ID: 1001053
6 Beiträge
geschütztes blatt = Fehlermeldung VBA
Pet


Hallo an Alle,
per Button werden 2 Tabellenblätter kopiert und nur die Werte in eine neue Datei gespeichert.
Dies klappt auch wunderbar!
Doch wenn ich die Blätter schütze bekomme ich immer eine Fehlermeldung.
Beende ich diese Fehlermeldung 1004, werden die Blätter trotzdem...
13.08.2008 18:48:00
Thread-ID: 1001622
3 Beiträge
Mittels VBA Zellbereich einfärben
Fred

Hallo zusammen
Ich habe da ein Problem, und zwar stehen bei mir in der Tabelle im Bereich D2 bis AD100 unterschiedliche Datums. Wenn das Datum kleiner ist als das heutige, hätte ich gerne, das sich die entsprechende Zelle Rot färbt. Ich habe das mal mit bedingter Formatierung versucht, aber...
13.08.2008 18:52:00
Thread-ID: 1001623
13 Beiträge
VBA Lösung für Tabellenblattwechsel gesucht
Nila

Hallo.
Ich habe folgendes vor:
Ich lege derzeit eine Exceldatei mit Steckbriefen von ca. 150 Personen an.
Jeder Steckbrief steht dabei auf einem eigenen Tabellenblatt.
Die Tabellenblätter werden nach der entsprechenden Person benannt.
Zum Beispiel: Name von Tabellenblatt 70:...
14.08.2008 10:07:25
Thread-ID: 1001749
8 Beiträge
Kalenderwoche "von bis" über VBA
bis"

Hi Leute,
ich versuch gerade über VBA eine Tabelle zu erstellen. Irgendwie komm ich aber nicht weiter.
Spalte A: Kalenderwoche z.b 1,2,3,4,5, usw.
SpalteB: Datum von bis: 1.1.09-5.1.09; 6.1.09-13.1.09; usw.
Dahinter wird je nach Bedarf eingetragen.
Auffüllen der Zahlen ist k...
19.08.2008 10:24:25
Thread-ID: 1002828
3 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
4
1
10
4
2
5
2
12
7
2
2
1
1
7
1
2
5
4
5
2
6
2
2
4
2