Wie kann ich die letzte farbige Zelle( Rot) vor dem Seitenumbruch ermitteln, diese markieren und über dieser Zelle einen Seitenumbruch einfügen ?
Im vorraus vielen Dank
Gruß
Sascha
Sub Zeilenumbruch()
ActiveSheet.HPageBreaks.Add Range("A" & WorksheetFunction.Match("Feld Kessel*", [c:c], 0))
End Sub
Frohe weihnachten allerseits
Da der rote hintergrund über die bedingte formatierung erstellt wird, übersteigt das meine bescheidenen fähigkeiten die zelle über
die hintergrundfarbe anzusprechen. Stattdessen sucht das makro "!!!". (kommmt glaube ich auf das gleiche raus).
die anzahl der horinzontalen seitenumbrüche bekommst du so:
Public Sub t()
MsgBox HPageBreaks.Count
End Sub
wenn ich dich richtig verstanden habe versuch
als ansatz für dein problem mal so:
Public Sub umbr()
Dim i As Integer
Dim zelle As Range
Dim umbruch
On Error Resume Next
For Each umbruch In HPageBreaks'erst mal alle horizontalen seitenumbrüche löschen
umbruch.Delete
Next
For Each zelle In Range("c32:c171")
If InStr(1, zelle.Text, "!!!") > 0 Then HPageBreaks.Add Before:=zelle'Wenn "!!!" in einer zelle vorhanden, dann seitenumbruch setzen
Next
End Sub
müsstest du aber noch irgendwie ans before_print dranhängen.
ransi