Live-Forum - Die aktuellen Beiträge
Datum
Titel
10.05.2024 22:28:14
Formel Suche nur genauen Wert ausgeben
10.05.2024 19:12:28
Suche Formel für Monatsberechnung
10.05.2024 18:20:03
Status/Typ-Werte automatisch setzen in Abhängigkeit
10.05.2024 16:34:03
Excel auf Smartphone: Vorsicht beim Wischen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1552to1556
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1552to1556
1552to1556
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Seitenumbruch nach jeder Spalte

Seitenumbruch nach jeder Spalte
21.04.2017 13:16:40
Peter
Hallo zusammen
Ich suche ein Script, dass mir nach jeder Spalte einen Seitenumbruch erstellt.
Erste Spalte, Spalte A ist die Titelspalte, diese soll mit jeder weiteren Spalte mit angezeigt und dann ausgedruckt werden. Es ist mir bewusst, dass man das auch von Hand einstellen kann, jedoch handelt es sich um mehrere Dateien mit jeweils ca. 250 Spalten, das wird am Ende ca. 1000 Ausdrucke geben, ja das ist verrückt, aber so lautet die Vorgabe :-)
Im Netz konnte ich nichts ensprechendes finden, hat jemand eine Idee?
Danke für den geschätzten Support.
Viele Grüsse,
Peter

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Seitenumbruch nach jeder Spalte
21.04.2017 13:46:54
ChrisL
Hi Peter
Sub Makro1()
Dim i As Long
With ActiveSheet
.PageSetup.PrintTitleColumns = "$A:$A"
For i = 3 To .UsedRange.Columns.Count
.Cells(1, i).PageBreak = xlPageBreakManual
Next i
End With
End Sub
cu
Chris
AW: Seitenumbruch nach jeder Spalte
21.04.2017 13:53:15
Peter
Hallo Chris
Funktioniert sehr gut, vielen DANK!
Gruss,
Peter
AW: Seitenumbruch nach jeder Spalte
21.04.2017 13:59:57
UweD
Hallo
in ein normales Modul in die Personal.xls.
Sub Umbruch()
    On Error GoTo Fehler
    Dim i%, CC%
    
    With ActiveWorkbook.ActiveSheet
        .ResetAllPageBreaks
        .PageSetup.PrintTitleColumns = "$A:$A"
        
        CC = .Cells.SpecialCells(xlCellTypeLastCell).Column 'Letzte Spalte des gesamten Blattes 
        For i = 3 To CC
            .VPageBreaks.Add Before:=Columns(i)
        Next
    End With
    
    '*** Fehlerbehandlung 
    Err.Clear
    On Error GoTo Fehler
Fehler:
    If Err.Number <> 0 Then MsgBox "Fehler: " & _
        Err.Number & vbLf & Err.Description: Err.Clear
End Sub

LG UweD
Anzeige
AW: Seitenumbruch nach jeder Spalte
24.04.2017 11:23:06
Peter
Hallo UweD
Danke für Deine Unterstüzung, funktioniert ebenfalls perfekt!
Viele Grüsse,
Peter
Danke für die Rückmeldung owT
24.04.2017 13:43:41
UweD

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige