Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1496to1500
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
Inhaltsverzeichnis

Seitenumbruch Teil2

Seitenumbruch Teil2
06.06.2016 13:23:19
snewi133
Hallo,
ich kann einen Seitenumbruch setzen über die Spalte CF mit der letzten 1 die in dieser Spalte steht:

Sub Umbruch()
On Error GoTo Fehler
Dim SP%, LR&
Application.ScreenUpdating = False
SP = 84 'Spalte CF
With ActiveSheet
.ResetAllPageBreaks
If .AutoFilterMode Then .AutoFilterMode = False
.Columns(SP).AutoFilter Field:=1, Criteria1:="1"
LR = .Cells(Rows.Count, SP).End(xlUp).Row
.AutoFilterMode = False
.HPageBreaks.Add before:=Rows(LR + 1)
End With
Err.Clear
Fehler:
If Err.Number  0 Then MsgBox "Fehler: " & _
Err.Number & vbLf & Err.Description: Err.Clear
End Sub
Ich würde das jetzt gerne so ändern, dass ich zuerst die aktuellen Seitenumbrüche ermittle, und dann die vorhanden so ersetze , dass hier ein neuer erzeugt wird bei der nächsten 1 Spalte (CF) über dem vorhandenen SU!
Gruß

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Seitenumbruch Teil2
08.06.2016 09:17:03
snewi133
Das ermitteln bekomme ich über:

ActiveSheet.HPageBreaks(1).Location.Row
hin! Jetzt nur die Frage wie ich die obere Fragestellung realisiere :-)
Gruß
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige