Anzeige
Archiv - Navigation
672to676
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
672to676
672to676
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Seitenumbruch

Seitenumbruch
02.10.2005 21:46:26
Michael
Hallo,
ich habe folgendes Problem. nach dem ich meine Druckansicht erstellt habe mit dem unten angebenen Makro (hab ich hier aus dem Forum bekommen habe) möchte ich einen variabelen Seitenumbruch einbauen. Der Seitenumbruch soll jedesmal neu berechnet werden und max 42 Zeilen pro Seite zulassen.
ich hoffe es kann jemand das Makro erweitern.
Gruß
Michael

Sub Ausblenden()
Dim i&, z&
For i = 1 To 26
z = 4 + (i - 1) * 6
Debug.Print Cells(z, 1) = ""
Range(Cells(z, 1), Cells(z + 5, 1)).EntireRow.Hidden = (Cells(z, 1) = "")
Next i
End Sub

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Seitenumbruch
02.10.2005 22:03:13
Ramses
Hallo
Option Explicit

Sub Set_PageBreaks()
    Dim i As Integer, lastR As Integer
    Dim tmpR As Integer
    Dim varRowPrint As Integer
    'Anzahl Zeilen definieren
    varRowPrint = 42
    With ActiveSheet
        lastR = .UsedRange.Rows.Count
        tmpR = 0
        For i = 1 To lastR
            If .Cells(i, 1).EntireRow.Hidden = False Then
                tmpR = tmpR + 1
            End If
            If tmpR = varRowPrint Then
                .HPageBreaks.Add before:=.Cells(i, 1)
                tmpR = 1
            End If
        Next i
    End With
End Sub

Gruss Rainer
Anzeige
AW: Seitenumbruch
02.10.2005 22:19:31
Michael
Hallo Rainer,
dein Makro ist super, leider gibt es noch ein Poblem da ich duch mein erstes sub einige Zeile ausblende möchte ich das sich dein Makro nur auf die Sichtbaren Zeillen und nicht auch auf die hidden zeilen bezieht.
Geht das?
Gruß
Michael
AW: Seitenumbruch
03.10.2005 06:59:35
Ramses
Hallo
Schön zu lesen,... aber du hast das Makro gar nicht ausprobiert :-(
Das Makro macht nämlich genau das !!
Es setzt nach 42 SICHTBAREN Zeilen einen Seitenumbruch
Gruss Rainer

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige