Anzeige
Archiv - Navigation
1056to1060
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 in Excel 2002

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
Anzeige
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

Anzeige
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
Anzeige
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)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige