variabler Seitenumbruck

Sub Umbruch() Dim rngC As Range Cells.PageBreak = xlPageBreakNone For Each rngC In Columns("D").SpecialCells(xlCellTypeConstants) If rngC.Value = "JA" Then rngC.EntireRow(2).PageBreak = xlPageBreakManual Next rngC End Sub

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub Seitenwechsel() On Error GoTo Fehler Dim TB1, i% Dim SP%, ZE&, LR& '*** Stammdaten Anfang Set TB1 = Sheets("Tabelle1") SP = 4 'Spalte D ZE = 2 'ab Zeile wegen Überschrift '*** Stammdaten Ende With TB1 .ResetAllPageBreaks LR = .Cells(.Rows.Count, SP).End(xlUp).Row 'letzte Zeile der Spalte For i = ZE To LR If .Cells(i + 1, SP) .Cells(i, SP) Then .HPageBreaks.Add Before:=.Cells(i + 1, SP) End If Next End With MsgBox "fertig" '*** Fehlerbehandlung Err.Clear Fehler: Application.EnableEvents = True If Err.Number 0 Then MsgBox "Fehler: " & _ Err.Number & vbLf & Err.Description: Err.Clear End Sub

Hallo Uwe,
ich habe meinen Fehler gefunden:
1. ich hatte "Set TB1 = Sheets("Tabelle3") " anstatt "Set TB1 = Sheets("Hüttenbelegung")" eingetragen,
da im VBA die Tabelle unter "Tabelle3 (Hüttenbelegung)" eingetragen ist.
Den der Seitenumbruch soll erst stattfinden sobald sich die Hüttenbezeichnung ( Hütte 01; Hütte 02) ändert,
und nicht breits bei den Hütten-Verantwortlichen, die sogenannten "Teamer" (Hütte 01 - Teamer; Hütte 02 - Teamer).
Dafür ist wird in der "Spalte H" jeweils das Wort "Seitenwechsel" automatisiert eingetragen, sobald ein Seitenwechsel gemacht werden soll
2. ich hatte "SP = 8 'Spalte H" eingetragen, da in dieser Spalte das Wort "Seitenwechsel"
in der betreffenden Zeile steht, wo ein Seitenwechsel stattzufinden hat!!
Die Spalte H ist farblich so hinterlegt, das die Schriftfarbe gleich Rahmenfarbe ist, somit fällt dem Benutzer dies nicht auf !!!

Hallo
das ist ja Wahnsinn, was du da in dem Blatt Berechnung alles für Formeln drinstehen hast...
Hierdurch wird das "- Teamer" außen vor gelassen


Sub Seitenwechsel()
On Error GoTo Fehler
Dim TB1, i%
Dim SP%, ZE&, LR&, Ohne$
'*** Stammdaten Anfang
Set TB1 = Sheets("Hüttenbelegung")
SP = 3 'Spalte C
ZE = 7 'ab Zeile wegen Überschrift
Ohne = " - Teamer" 'bleibt unberücksichtigt
'*** Stammdaten Ende
With TB1
.ResetAllPageBreaks
LR = .Cells(.Rows.Count, SP).End(xlUp).Row 'letzte Zeile der Spalte
For i = ZE To LR - 1
If Replace(.Cells(i + 1, SP), Ohne, "")  Replace(.Cells(i, SP), Ohne, "") Then
.HPageBreaks.Add Before:=.Cells(i + 1, SP)
End If
Next
End With
MsgBox "fertig"
'*** Fehlerbehandlung
Err.Clear
Fehler:
Application.EnableEvents = True
If Err.Number  0 Then MsgBox "Fehler: " & _
Err.Number & vbLf & Err.Description: Err.Clear
End Sub

LG UweD

Sub Seitenwechsel() On Error GoTo Fehler Dim TB1, i%, SW$ Dim SP%, ZE&, LR& '*** Stammdaten Anfang Set TB1 = Sheets("Hüttenbelegung") SP = 8 'Spalte H ZE = 7 'ab Zeile wegen Überschrift SW = "Seitenumbruch" '*** Stammdaten Ende With TB1 .ResetAllPageBreaks LR = .Cells(.Rows.Count, SP).End(xlUp).Row 'letzte Zeile der Spalte For i = ZE To LR - 1 If Cells(i + 1, SP) = SW Then .HPageBreaks.Add Before:=.Cells(i + 1, SP) End If Next End With MsgBox "fertig" '*** Fehlerbehandlung Err.Clear Fehler: Application.EnableEvents = True If Err.Number 0 Then MsgBox "Fehler: " & _ Err.Number & vbLf & Err.Description: Err.Clear End Sub

Beliebteste Forumthreads (12 Monate)

8 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread