VBA Seitenumbruch nach jeder leeren Zeile
#1
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
Antworten Top
#2
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
Antworten Top
#3
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
Antworten Top
#4
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
Antworten Top
#5
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
Antworten Top


Gehe zu:


Benutzer, die gerade dieses Thema anschauen: 1 Gast/Gäste