dynamischer seitenumbruch mit vba

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: (mühsames) Auszählen

01.02.2018 12:58:20

Fennek

AW: (mühsames) Auszählen

01.02.2018 14:04:17

michael

AW: ein Anfang

01.02.2018 14:42:22

Fennek

AW: 2. Schritt

01.02.2018 15:35:12

Fennek

AW: zum Üben

02.02.2018 09:34:48

Fennek

AW: zum Üben

02.02.2018 09:38:12

michael

AW: nur die letzte (owT)

02.02.2018 12:20:42

Fennek

AW: Final Version

02.02.2018 16:23:54

Fennek

Sub Titel_suchen() If Range("C16").MergeArea.Count > 1 Then Debug.Print For i = 16 To Cells(Rows.Count, 3).End(xlUp).Row If Cells(i, 3).MergeArea.Count > 2 Then Debug.Print Cells(i, 3).MergeArea.Address i = i + 2 End If Next i End Sub

Hallo,
so ähnlich wie der folgende Code könnte es gehen. Es gibt aber Problem, wenn ein Kapitel größer als eine Seite ist. Zum weiteren debuggen habe ich keine Lust.


Dim Tx As String
Sub Titel_suchen()
For i = 16 To Cells(Rows.Count, 3).End(xlUp).Row
If Cells(i, 3).MergeArea.Count > 2 Then
'Debug.Print Val(Split(Cells(i, 3).MergeArea.Address, "$")(2))
Tx = Tx & Val(Split(Cells(i, 3).MergeArea.Address, "$")(2)) & "#"
i = i + 2
End If
Next i
Debug.Print Tx
End Sub
Sub Drucken()
Dim WS As Worksheet: Set WS = ActiveSheet
RR = Split(Tx, "#")
Debug.Print WS.HPageBreaks.Count
With WS.PageSetup
.PrintTitleRows = "$11:$15"
End With
'alte PageBreak löschen
For i = WS.HPageBreaks.Count To 1 Step -1
WS.HPageBreaks.Item(i).Delete
Next i
'neue break einfügen
For i = 1 To WS.HPageBreaks.Count
R = CInt(Split(WS.HPageBreaks.Item(i).Location.Address, "$")(2))
For k = 0 To UBound(RR)
If CInt(RR(k)) > R Then
N = CInt(RR(k - 1))
Exit For
End If
Next k
WS.HPageBreaks.Add Cells(N, 3)
Next i
End Sub

Mal sehen, ob du es findest.
mdf

Sub T1() Dim WS As Worksheet: Set WS = ActiveSheet Dim HPb As HPageBreak WS.ResetAllPageBreaks With WS.PageSetup hp = 1 r = Range(.PrintArea).Row For i = Range(.PrintArea).Row + 3 To Range(.PrintArea).Row + Range(.PrintArea).Rows.Count - _ 1 If Cells(i, 3).MergeArea.Count > 2 Then If WS.HPageBreaks(hp).Location.Row

Sub T1() Dim WS As Worksheet: Set WS = ActiveSheet Dim HPb As HPageBreak WS.ResetAllPageBreaks With WS.PageSetup hp = 1 r = Range(.PrintArea).Row lr = Range(.PrintArea).Row + Range(.PrintArea).Rows.Count For i = Range(.PrintArea).Row + 3 To lr If Cells(i, 3).MergeArea.Count > 2 Or i = lr Then If WS.HPageBreaks(hp).Location.Row

Beliebteste Forumthreads (12 Monate)

dynamischer seitenumbruch mit vba

8 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread