Seitenumbruch in Excel 2002

Forumthread: Seitenumbruch in Excel 2002

11.03.2009 10:58:14

Heix

Guten Tag,
ich habe eine Tabelle mit 15.000 Zeilen für unseren Lampenwechsel an "Laternen" in Dortmund erzeugt. In einer Spalte steht z. B. ein Ortsteil bzw. eine Zahl. Wenn sich der Ortsteil bzw. die Zahl ändert, möchte ich einen Seitenumbruch erzeugen.
Ich denke, funktioniert nur mit visual-basic.
Kann mir jemand weiterhelfen. Vielen Dank schon mal.
Grüße aus Dortmund
Wolfgang Heix

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Seitenumbruch in Excel 2002

11.03.2009 11:16:02

Arthur
AW: Seitenumbruch in Excel 2002

11.03.2009 11:30:18

Jogy
AW: Seitenumbruch in Excel 2002

11.03.2009 11:53:44

Heix
AW: Seitenumbruch in Excel 2002

11.03.2009 11:48:35

Heix

AW: Seitenumbruch in Excel 2002

11.03.2009 11:16:02

Arthur

Hallo Wolfgang.
Falls 2002 reagiert wie 2003 (in diesem Fall gehe ich davon aus), dann brauchst du nur die in einer Schleife die Spalte runterlaufen und per
Woeksheets().HPageBreaks.Add Before:=
den Zeilenumbruch einfügen.
Genauer:


Sub abc()
Dim lvValue As Variant
Dim llColumn As Long, llRow As Long, llStartRow As Long
llColumn = 1 ' Spalte A
llStartRow = 2 ' ab Zeile 2
lvValue = Worksheets("Tabelle1").Cells(llStartRow, llColumn).Value
For llRow = llStartRow To Worksheets("Tabelle1").UsedRange.Rows.Count
If (lvValue  Worksheets("Tabelle1").Cells(llRow, llColumn).Value) Then
Worksheets("Tabelle1").HPageBreaks.Add Before:=Worksheets("Tabelle1").Cells(llRow,  _
llColumn)
lvValue = Worksheets("Tabelle1").Cells(llRow, llColumn).Value
End If
Next
End Sub

-Arthur

AW: Seitenumbruch in Excel 2002

11.03.2009 11:30:18

Jogy

Hi.
Falls es nicht funktioniert, dann setz mal noch am Anfang
Application.ScreenUpdating = False
Worksheets("Tabelle1").Activate
ActiveWindow.View = xlPageBreakPreview
und am Ende
ActiveWindow.View = xlNormalView
Application.ScreenUpdating = True
Ich hatte schon des öfteren das Problem, dass das setzen von Seitenrändern nur dann korrekt funktioniert, wenn man sich in der Seitenumbruchvorschau befindet.
Gruss, Jogy

AW: Seitenumbruch in Excel 2002

11.03.2009 11:53:44

Heix

Hallo Arthur, hallo Jogy,
bin begeistert! Vielen Dank!
Info an Jogy: Arthur's Macro funktioniert in beiden Ansichten, trotzdem danke.
Liebe Grüße aus Dortmund
Wolfgang

AW: Seitenumbruch in Excel 2002

11.03.2009 11:48:35

Heix

Hallo Arthur, hallo Jogy,
bin begeistert! Vielen Dank!!!!!!!
Info an Jogy: Arthurs Macro funktioniert sowohl als auch.
Liebe Grüße aus Dortmund
Wolfgang

Beliebteste Forumthreads (12 Monate)

Forumthread: Seitenumbruch in Excel 2002

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

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread