HPageBreak xlManual
01.11.2005 08:58:34
Teo
Ich muss in einem Excel-Arbeitsblatt alle
automatischen Seitenwechsel in manuelle umwandeln,
um eine spezielle Positionsnummerierung durchzuführen.
der Code
EndSeite = .HPageBreaks.Count
CNT = 1
Do
If ActiveSheet.Rows(CNT).PageBreak = xlPageBreakAutomatic Then
ActiveSheet.Rows(CNT).PageBreak = xlPageBreakManual
End If
CNT = CNT + 1
Loop Until CNT = Endseite
funktioniert nur bedingt, meist beim zweiten Durchlauf, oft
gar nicht vollständig, anscheinend je unzuverlässiger, je mehr
Seiten das Dokument hat.
Weiss jemand eine Lösung?
MfG
Teo