rätsel mit HPageBreaks
18.06.2004 13:38:40
joel
jetzt hab ich wirklich zweifel an mir.. die folgende schlaufe bringt mir immer wieder einen anwendungsfehler (falscher index) in zeile zwei
Do Until i > wksCalc.HPageBreaks.Count
j = wksCalc.HPageBreaks.Item(i).Location.row
Do Until Not IsEmpty(wksCalc.Cells(j, cBKP)) And _
Len(wksCalc.Cells(j, cBKP).Value) j = j - 1
Loop
Call wksCalc.HPageBreaks.Add(before:=wksCalc.Range("A" & j))
i = i + 1
Loop
also beispielsweise liefert wksCalc.HPageBreaks.Count = 14, die schlaufe funktioniert für i = 1 bis i = 5 und dann bei i = 6 kommt die fehlermeldung?
vorher habe ich das ganze mit einer for, next-schlaufe gelöst und alles hat prima geklappt. das problem ist jedoch, dass ich die seitenwechsel manuell verschiebe (nach oben) und es so vorkommen kann, dass sich deren zahl erhöht. deshalb jetzt die do-while schlaufe.
wäre dankbar für jegliche hilfe
gruss joel