seitenumbruch zu langsam..
18.06.2004 10:39:54
joel
ich habe ein blatt mit über 1000 zeilen. nun möchte ich die seitenwechsel manuell festlegen (vg. do until-loop)
das ganze klappt auch prima, nur leider geht das ganze eine halbe ewigkeit..
wie kann ich das ganze beschleunigen?
For i = rFIRST To rLAST
If Rows(i).PageBreak = xlPageBreakAutomatic Then
j = i
Do Until Not IsEmpty(wksCalc.Cells(j, COL_BKP)) And _
Len(wksCalc.Cells(j, COL_BKP).Value) = 2
j = j - 1
Loop
Call wksCalc.HPageBreaks.Add(before:=wksCalc.Range("A" & j))
End If
Next i
ich habe mir überlegt, nicht von den zellen, sondern von den seitenumbrüchen auszugehen (wäre ja logischer), nur bekomme ich das ganze nicht zum laufen (.count liefert 0, da dies offensichtlich nur die manuell eingefügten seitenwechsel zählt, oder?)
For i = 1 To wksCalc.VPageBreaks.Count - 1
Set r = wksCalc.VPageBreaks(i).Location
Do Until Len(wksCalc.Cells(r.row, cBKP).Value) = 2
Set r = r.Offset(0, -1)
Loop
Call wksCalc.VPageBreaks.Add(before:=r)
Next i
hoffe, hier kann mir jemand weiterhelfen
danke, gruss joel
ps: die code-erkennung sollte doch eigentlich automatisch geschehen, bei mir jedoch eher zufällig. was mach ich falsch?