Bereiche definieren für Seitenumbruch

Hallo,
ich habe eine Tabelle, die vom Umfang her variiert. Die Tabelle besteht aus mehreren Bereichen. Die Bereiche können ebenfalls unterschiedlich groß sein. Die einzige Begrenzung sind die Spalten, d.h. ich habe eine Begrenzung nach rechts, aber nicht nach unten.
Nun möchte ich aber nicht, das ein Tabellenbereich beim Drucken getrennt wird. Wenn der Bereich nicht mehr komplett auf die Seite passt, soll dieser automatisch auf der nächsten Seite angezeigt werden. Ein Bereich hat immer die Größe, dass sie auch auf eine Seite passen würde.
Vielleicht hilft es weiter, dass jeder Bereich z.B. max 20 Zeilen umfasst und dass die Zeilen, die nicht benötigt werden ausgeblendet sind, so dass es gewissermaßen schon vordefinierte Bereiche gibt (z.B. Zeile 22-42,43-62,63-82, usw.)
Außerdem soll bis Zeile 22 (wobei auch hier nicht immer alles angezeigt wird) die Überschriften auf jeder Seite angezeigt werden. Dies habe ich in der Seitenansicht bereits über Ansicht/Kopf-und Fußzeile/Tabelle/Wiederholungszeile oben Bereich $1:$22 umgesetzt.
Ich habe zum besseren Verständnis ein link heruntergeladen.
https://www.herber.de/bbs/user/40382.xls
Ich hoffe, Ihr könnt mir einen guten Tipp geben. Bisher habe ich es sehr umständlich gelöst, in dem ich für jede Zelle, die belegt ist eine 1 vergeben, die max. Zeilenbegrenzung inkl. variierendem Kopfteil vorgegeben habe, um so letztendlich einen Seitenwechsel anzustoßen. Vor lauter Bäumen sehe ich aber so langsam keine Bäume mehr. Aus diesem Grund hoffe ich, dass es eine ganz einfache Lösung gibt (wie z.B. in Word, wo eine Tabellenabschnitt, der über eine Seite hinausgehen würde, automatisch getrennt und auf der nächste Seite angezeigt wird.
Gruß
Uwe

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub Ansicht_Sicherheiten() Application.ScreenUpdating = False Tabelle27.Unprotect Sicherheitenobligo1.Unprotect Tabelle27.Visible = True Tabelle27.Select Range("AM294").Select ActiveCell.FormulaR1C1 = "=IF(Sicherheitenobligo!RC[-38]=1,1,0)" Range("AM294").Select Selection.AutoFill Destination:=Range("AM294:AM2013"), Type:=xlFillDefault Range("AM294:AM2013").Select Sicherheitenobligo1.Select With ActiveSheet.PageSetup .Orientation = xlLandscape .PaperSize = xlPaperA4 End With Cells.Select ActiveSheet.ResetAllPageBreaks For i = 1 To 111 If Cells(i, "Z") > 0 Then Rows(Cells(i, "Z")).Select ActiveWindow.SelectedSheets.HPageBreaks.Add Before:=ActiveCell End If If Cells(i, "Z") = Range("AA2") Then Exit For Next With ActiveSheet.PageSetup .Orientation = xlLandscape .PaperSize = xlPaperA4 .Zoom = 70 End With Tabelle27.Visible = False End Sub

Hallo Uwe,
hier weitere allgemeine Vorschläge. Einiges kommt durch Aufzeichnen so lang und ausführlich, wenn man weiss wo man ansetzen muss lässt sich viel vereinfachen.
'zwei Zeilen zu einer zusammenfassen
' Range("B315").Select
' ActiveCell.FormulaR1C1 = "Summe"
'ändern in
Range("B315").FormulaR1C1 = "Summe"
'3 Zeilen zu einer zusammenfassen
'Range("B294:C294,D294:H313,J294,K294:L313").Select
'Range("K294").Activate
'Selection.Locked = False
'ändern in
Range("B314:C314,D314:H333,J314,K314:L333").Locked = False
'nur Dinge programmieren die geändert werden sollen
'die auskommentierten könnten unwichtig sein
With Selection 'Hier ginge auch ein Zellbezug wie With Range("A1:A10")
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlBottom
' .WrapText = False
' .Orientation = 0
' .AddIndent = False
' .IndentLevel = 0
' .ShrinkToFit = False
' .ReadingOrder = xlContext
' .MergeCells = False
End With
'Activate oft unnötig
Range("B315,C315,K315,L315,J317,N317,K317:L317").Select
' Range("K317:L317").Activate
'Hier geht auch ein Zellbezug
' Selection.Merge
'ändern in
Range("A1:A10").Merge
'Hier geht auch ein Zellbezug
' Selection.Font.Bold = True
' Selection.Borders(xlDiagonalDown).LineStyle = xlNone
' Selection.Borders(xlDiagonalUp).LineStyle = xlNone
'ändern in
Range("A1:A10").Font.Bold = True
Range("A1:A10").Borders(xlDiagonalDown).LineStyle = xlNone
Range("A1:A10").Borders(xlDiagonalUp).LineStyle = xlNone
'Hier reicht 1x wenn die Zellen auf allen Seiten den gleichen Rand bekommen
'ich lasse mal die Hochkommas weg ;-)
With Selection.Borders(xlEdgeLeft)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeTop)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeBottom)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeRight)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
'ändern in
With Selection.Borders
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
'so was zusammenfassen, hier z.B. alles vom ActiveSheet.PageSetup
' With ActiveSheet.PageSetup
' .PrintTitleRows = "$4:$22"
' .PrintTitleColumns = ""
' End With
' ActiveSheet.PageSetup.PrintArea = "$B:$O"
' With ActiveSheet.PageSetup
' .Zoom = 70
' End With
'ändern in
With ActiveSheet.PageSetup
.PrintTitleRows = "$4:$22"
.PrintTitleColumns = ""
.PrintTitleRows = "$4:$22"
.PrintTitleColumns = ""
.PrintArea = "$B:$O"
.Zoom = 70
End With
'so was zusammenfassen
Range("A2:B290").Select
Selection.EntireRow.Delete
Selection.AutoFilter Field:=1
Selection.AutoFilter
'ändern in
With Range("A2:B290")
.EntireRow.Delete
.AutoFilter Field:=1
.AutoFilter
End With
'oder alternativ
Range("A2:B290").EntireRow.Delete
Range("A2:B290").AutoFilter Field:=1
Range("A2:B290").AutoFilter
...

Sub entsperren_Sicherheitenobligo1() Sicherheitenobligo1.Unprotect Sicherheitenobligo1.Select Dim i As Integer For i = 294 To 1514 Step 20 Range("B" & i & ":C" & i & ",D" & i & ":H" & i + 19 & ",J" & i & ",K" & i & ":L" & i + 19).Locked = False Next Range("A1").Select End Sub

Beliebteste Forumthreads (12 Monate)

Bereiche definieren für Seitenumbruch

12 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

12
Beiträge zum Forumthread

Beiträge zu diesem Forumthread