Registriert seit: 27.01.2023
Version(en): 2020
Hallo,
im www finde ich keine Lösung für mein Problem.
Ich habe eine Tabelle - unterteilt in verschiedene Gruppen-
Nach jeder leeren Zeile soll ein Seitenumbruch vorgenommen werden.
Da es ca 500 Seiten werden, benötige ich hierfür ein Makro.
Kann jemand mir diesen erstellen?
Herzlichen Dank
Katy
Registriert seit: 04.04.2017
Version(en): Excel365
Und wieso finde ICH sofort etwas (zigtausend Seiten) ?
z.B. so:
Code:
Sub Seitenwechsel()
Dim iRow As Integer
For iRow = WorksheetFunction.CountA(Columns(1)) To 1 Step -1
If Cells(iRow, 1).Value = "" Then
Tabelle1.HPageBreaks.Add Cells(iRow, 1)
End If
Next iRow
End Sub
Registriert seit: 27.01.2023
Version(en): 2020
ICH habe es nicht gefunden! Bitte zeige mir ein Beispiel, damit ich rekonstruieren kann, warum ich keinen passenden Eintrag gefunden habe. - Danke
Und vielen Dank für deine Hilfe 🌹
Katy
Registriert seit: 27.01.2023
Version(en): 2020
Hallo oee,
Könntest du dein Makro überarbeiten.
Wenn ich dein Makro eingegebe, dann wird nach jeder leeren Zelle ein Seitenumbruch eingefügt.
Ich benötige einen Seitenumbruch nach jeder leeren Zeile (über die Spalten A bis X)
Ich bin dir wirklich dankbar, wenn du mir behilflich bist!
Viele Grüße
Katy
Registriert seit: 17.04.2014
Version(en): MS Office 365(32)
Hallo Katy,
Code:
Sub ZeilenumbruecheSetzen()
Dim rngZ As Range
With ActiveSheet
.ResetAllPageBreaks
For Each rngZ In .Range(.Cells(2, 1), .Cells.SpecialCells(xlCellTypeLastCell)).Rows
If WorksheetFunction.CountA(rngZ) = 0 Then
.HPageBreaks.Add rngZ
End If
Next rngZ
End With
End Sub
Gruß, Uwe