Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.09.2025 10:29:46
Wert aus einer Zelle bei jeder Eingabe in neue Zelle
26.09.2025 08:51:00
Teilinhalt einer Zelle vergleichen
25.09.2025 23:04:12
Einen von drei möglichen Einträgen in einer Zeile suchen
25.09.2025 19:59:48
Lebenserleichternde Datei, im Bezug auf die Essensauswahl
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1432to1436
1432to1436
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

VBA - Seitenumbruch bei entsprechendem Zellwert

Forumthread: VBA - Seitenumbruch bei entsprechendem Zellwert

VBA - Seitenumbruch bei entsprechendem Zellwert
03.07.2015 20:00:39
Klaus
Geschätztes Forum,
Ich führe in beil. Beispieldatei mehr als 400 Gemeinden mit zugeordneten Straßenabschnittslängen sowie eine jeweils abschließende Zeile mit einer aufsummierten Gesamtlänge. Jeder Gemeindedatenblock soll auf einer eigenen Seite ausgedruckt werden.
Beispieldatei:
https://www.herber.de/bbs/user/98626.xlsm
Um das Einfügen von über 400 Seitenumbrüche nicht manuell abarbeiten zu müssen, habe ich mir ein "bescheidenes" Makro gebastelt, dass in Spalte B zeilenweise nach unten springt und immer dann, wenn die Zelle den Wert "Gesamtlänge" enthält, unterhalb einen Seitenumbruch einfügt.
Leider gibt das Makro nach ca. 50 Loops auf und meldet "Nicht genügend Stapelspeicher", was sicher an meinem dilettantischen Makro liegt.
Lässt sich sicher auch mit einer professionellen Schleife lösen - bitte um Unterstützung.
Danke für jeden Beitrag im Voraus
Klaus

Anzeige

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: VBA - Seitenumbruch bei entsprechendem Zellwert
03.07.2015 20:55:13
Raphael
Hallo Klaus,
versuchs mal so

Sub Seitenumbruch()
Dim i As Long
Dim ws As Worksheet
Set ws = Sheets("WD_Kostenvorschreibung_Ergebnis")
For i = 1 To ws.Cells(Rows.Count, 2).End(xlUp).Row
If ws.Cells(i, 2).Value = "Gesamtlänge" Then
ws.HPageBreaks.Add before:=Cells(i, 2)
End If
Next i
End Sub
Gruess Raphael

Anzeige
AW: VBA - Seitenumbruch bei entsprechendem Zellwert
03.07.2015 22:10:08
Klaus
Hallo Raphael,
SUPER - der Code klatscht die 435 Seitenumbrüche drauf wie nix.
Ich habe den Zeilenzähler für die Zelle, die für die Zuweisung der Seitenumbrüche verwendet wird, noch um 1 erhöht, also ws.HPageBreaks.Add before:=Cells(i + 1, 2) und jetzt sitzen die Seitenumbrüche jeweils 1 Zeile tiefer.
Nochmals DANKE
Klaus

Anzeige
Bitte owt
03.07.2015 23:26:32
Raphael
;

Forumthreads zu verwandten Themen

Array benennen nach Zellwerten
chris

Hallo VBA Experten,guten morgen.
habe eine frage und zwar wie ist es möglich ein Array zu benennen ?
Momentan habe ich es so...
Dim kriterien(20)
Dann wenn ich in den Debugger gehe steht dort
kriterien(0)
kriterien(1)
kriterien(2)
usw...
Wie erreiche ich es...
13.08.2008 06:52:02
Thread-ID: 1001351
5 Beiträge
Zeilen einfärben abhängig von Zellwerten
Zellwerten

Hi Leute
Da ich nicht weiß, wie ich nach meinem Problem suchen kann, beschreibe ich es einfach mal kurz. Vielleicht kann mir ja jemand helfen.
Ich habe ein Excel-File, das xSpalten hat und xZeilen.
In einer Spalte (in meinem Fall Spalte F) stehen die verschiedenen Auftragsnummern, a...
18.08.2008 16:57:26
Thread-ID: 1002687
6 Beiträge
Anzeige
Tb.Blatt nach Zellwert speichern
Peter

Guten Morgen allerseits,
mir raucht als VBA Neuling der Schädel, vielleicht könnt Ihr mir helfen. Ich versuche Tabelle 2 in Abhängigkeit einer Zelle in Tabelle 1 in einem bestimmten Ordner zu speichern, wobei das speichern erst
zulässig sein darf wenn alle einzugebenen Daten vorhanden s...
28.08.2008 09:50:00
Thread-ID: 1005302
3 Beiträge
Zellwerte zählen
Markus

Hallo,
ich habe folgendes Problem:
Spalte 1 Spalte 2
Probe 1 DAD
Probe 1 DAD
Probe 1 TIC
Probe 1 XIC
Probe 2 DAD
Probe 2 DAD
Probe 2 DAD
Probe 2 TIC
Probe 2...
29.08.2008 13:45:00
Thread-ID: 1005821
4 Beiträge
Zellwerte aus markierten Tabellen übertragen
obelix-xxl

Hallo,
in mehreren Tabellen habe ich in der gleichen Spalte X11:X100 Summenwerte eingetragen.
Die Spaltenbeschriftung ist in der Zelle X10 und ist gleich dem Tabellennamen, z.B. -1.234.
Ich benötige nur die Ergebnisse der markierten Tabellenblätter. Diese in den markierten Tabellen...
06.09.2008 17:29:20
Thread-ID: 1007869
3 Beiträge
Entspricht doppeltes Hochkomma Zellwert >0?
Jesko

Hallo an alle,
wer kann mir sagen, welchem Zellwert das doppelte Hochkomma entspricht.
Hier der Zusammenhang:
In Spalte K meiner Tabelle wird ein Liefertermin genannt (Format: TT.MM.JJJJ).
In Spalte S ist der tatsächlich erreichte Liefertermin aufgeführt (Format wie oben).
I...
15.09.2008 17:51:31
Thread-ID: 1009863
6 Beiträge
Zellwert übertragen
chrissey

Hallo Leut,
hab ne relativ allgemeine Excelfrage. Kann man bei Klick auf eine Zelle den Zellwert auf eine andere
Zelle übertragen. Also angenommen ich habe folgenden Zellbereich:
A
1 Hans
2 Peter
3 Klaus
4 Thomas
5...
30.09.2008 08:24:00
Thread-ID: 1013243
3 Beiträge
Datum in Abhängigkeit eines Zellwertes setzten
Tom

Guten Morgen,
Ich hab hier ein aktuelles Problem das ich schnellstens lösen muss.
Meine Tabelle besteht aus den Spalten A bis Q. In Spalte P wird ein "X" eingetragen was den Datensatz in ein neues Tabellenblatt kopiert was auch super funktioniert.
Nun möchte mein Chef das wenn das "...
07.10.2008 07:37:00
Thread-ID: 1014581
6 Beiträge
Anzeige
Excel-Zellwert in Word einfügen
Alexander

Hallo zusammen,
tolles Forum.
Ich habe folgendes Problem: Ich habe ein Word-Dokument mit Formular-Felder.
Diese sollen mit Werten aus einer Excel-Tabelle gefüllt werden.
Der VBA-Code muss im Word-Dokument stehen.
ActiveDocument.FormFields("text1").Result = workbooks("Mappe1....
23.10.2008 21:31:00
Thread-ID: 1018804
6 Beiträge
Anzeige
Pfeilfarbe- und Bewegung abhängig von Zellwerten
Zellwerten

Hallo zusammen,
unter Online-FAQ bin ich über folgenden Code gestolpert.
Private Sub Worksheet_Change(ByVal Target As Range) If Intersect(Target, Range("A1:B1")) Is Nothing Then Exit Sub With Shapes("Autoform 1") If Range("A1").Value > Range("B1") Then .Rotation = 90# .Fill.ForeCol...
06.11.2008 20:47:00
Thread-ID: 1022428
8 Beiträge
Zeilenwerte abhängig von Zellwert
Zellwert

Hallo Excelfreunde,
wie lässt sich folgendes bewerkstelligen?
Im Zellbereich A2:A13 stehen fortlaufend die Zahlen 1 bis 12. Wenn ich nun in die Zelle A1 die Zahl 1 eingebe, soll mir in B1 der Zellwert derjenigen Zelle der Spalte B aus derjenigen Zeile, in der in Spalte A die Zahl 1 steh...
31.12.2008 15:52:08
Thread-ID: 1036162
6 Beiträge
Zeilen löschen mit Zellwert über...
Norbert

Hallo,
habe folgende Frage:
Wie schreibt man als Makro: lösche alle Zeilen deren Inhalt in Spalte K kleiner 180 ist.
Besten Dank für RüA!
27.01.2009 17:46:00
Thread-ID: 1044330
6 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige