kurz vorm Wochenende habe ich noch eine Frage offen.
Per VBA füge ich in einem Tabellenblatt automatosche Seitenumbrüche ein, wenn sich der Wert in Spalte A
ändert:
Dim i&
For i = 2 To Cells(Rows.Count, 1).End(xlUp).Row
If Cells(i + 1, 1).Value Cells(i, 1).Value Then _
ActiveSheet.HPageBreaks.Add Before:=Cells(i + 1, 1)
Next i
Funktioniert hervorragend. Nun möchte ich gerne, wenn in der Spalte der Wert 310300 und höher kommt das Makro mit den Seitenumbrüchen aufhört.
Kennt jemand hierfür eine Lösung, bzw. kann mir jemand helfen, mein Skript anzupassen.
Vielen Dank im Voraus und
Beste Grüße
Jürgen