Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1088to1092
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
Inhaltsverzeichnis

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

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
Danke Helmut..
22.07.2009 16:53:07
Steffen
..ich werds gleich ausprobieren!
viele grüße steffen
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige