Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Seitenumbruch automatisch

Forumthread: Seitenumbruch automatisch

Seitenumbruch automatisch
Steffen
Hallo Zusammen,
ich habe eine Tabelle mit zusammenhängenden textbereichen zwischen diesen textbereichen sind leerzeilen eingefügt zur bessenren übersicht,nun möchte ich ein makro erstellen welches mir den seitenumruch automatisch in diese leerzeilen setzt.
Bedingung:
das auszudruckende format soll A4 100% sein.
da die textbereiche variieren muss jedesmal vor dem ausdruck der seitenumbruch angepasst werden
BSP:
SpalteA SpalteB SpalteC SpalteD
1 TEXT TEXT TEXT
2 TEXT TEXT TEXT
3 .........................................................Seitenumbruch soll
4 TEXT TEXT TEXT
5 TEXT TEXT TEXT
6 .............. TEXT TEXT TEXT...Seitenumbruch ist
7 TEXT TEXT TEXT
8.........................................................Seitenumbruch soll
9 TEXT TEXT TEXT
10 TEXT TEXT TEXT
11 TEXT TEXT TEXT
12
für ideen und anregungen währe ich euch sehr dankbar .
viele grüße steffen
Anzeige

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Seitenumbruch automatisch
22.07.2009 16:29:05
Helmut
Hallo Steffen,
dies kannst Du sicher selber ausbauen.
Option Explicit
Sub Makro1()
' Makro1 Makro
Dim myLastRow As Long
Dim i As Long
ActiveSheet.ResetAllPageBreaks
myLastRow = IIf(IsEmpty(Cells(Rows.Count, 1)), Cells(Rows.Count, 1).End(xlUp).Row, Rows.Count)
For i = 1 To myLastRow
If Range("a" & i).Value = "" Then
ActiveSheet.HPageBreaks.Add Before:=Range("a" & i)
End If
Next i
End Sub

Gruß Helmut
Anzeige
Danke Helmut..
22.07.2009 16:53:07
Steffen
..ich werds gleich ausprobieren!
viele grüße steffen
;

Beliebteste Forumthreads (12 Monate)

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