ActiveSheet.Cells(Rows.Count, 3).End(xlUp).Row
With ActiveSheet
LR = .Cells(.Cells(Rows.Count, 3).End(xlUp).Row, 3).End(xlUp).Row
End With
Spalte C --> letzter Wert 1 in 51 vorletzter Wert 1 in 49!
Sub Vorletzte()
Dim LR&, SP%, ZE%, i&
SP = 3 'SpalteC
ZE = 8 'Erste Zeile mit Daten
With ActiveSheet
LR = .Cells(Rows.Count, SP).End(xlUp).Row - 1 'vor letzte Zeile der Spalte
For i = LR To ZE Step -1
If .Cells(i, SP) 0 Then
LR = i
MsgBox "Vorletzte Zeile mit Wert 0 ist " & LR
Exit Sub
End If
Next
End With
End Sub
Sub Umbruch()
On Error GoTo Fehler
Dim LR&, SP%, ZE%, LSU%, i&
Application.ScreenUpdating = False
SP = 84 'Spalte CF
ZE = 8 'Erste Zeile mit Daten
With ActiveSheet
LSU = .HPageBreaks(1).Location.Row
For i = LSU To ZE Step -1
If .Cells(i, SP) "" Then
LSU = i
Exit Sub
End If
Next
.ResetAllPageBreaks
.AutoFilterMode = False
.HPageBreaks.Add before:=Rows(LSU)
End With
Err.Clear
Fehler:
End Sub
Sub Umbruch()
Dim LSU&, SP%, ZE%, i&
On Error GoTo Fehler
SP = 84 'SpalteC
ZE = 8 'Erste Zeile mit Daten
ActiveSheet.ResetAllPageBreaks
With ActiveSheet
LSU = .HPageBreaks(1).Location.Row
For i = LSU To ZE Step -1
If .Cells(i, SP) "" Then
LSU = i
.ResetAllPageBreaks
.HPageBreaks.Add before:=Rows(LSU + 1)
Exit Sub
End If
Next
End With
Err.Clear
Fehler:
End Sub