Excel-Seitenwechsel

[Karl-Heinz Schmidt]

Hallo
ich möchte aus meiner Anwendung heraus eine Excel-Tabelle erstellen.
Nach bestimmten Kriterien muss ich ein Seitenwechsel in Excel einfügen.
Mit den VB-Befehlen (über VB-Macros) konnte ich bis jetzt keine Möglichkeit finden. Wer weis Rat.
Im voraus Danke
Karl-Heinz

[Horst Esser]

Hallo

Excel erzeugt folgendes Macro für einen manuellen Seitenwechsel:

Range("A5").Select

ActiveWindow.SelectedSheets.HPageBreaks.Add Before:=ActiveCell

Die dürfte mit Delphi kein Problem sein.

MfG

HP

[Karl-Heinz Schmidt]

Hallo,
Danke für den Tip, hat aber leider noch geklappt.
das Blank zwischen Add und Before krieg ich nicht hin.
Kommen immer wieder Errors bezogen auf Active.Cell?

[Falk Prüfer]

Hi,

versuch es in Delphi mal mit ActiveWindow.SelectedSheets.HPageBreaks.Add(Active Cell)

Gruß Fal

[Karl-Heinz Schmidt]

Hallo
auch dies ging nicht. Jetzt kennt er ActiveCell nicht.
Komme einfach nicht weiter damit.
Vielleicht sollte ich in Excel ein Macro schreiben

[Andreas Kramer]

Hallo<br>

Versuchs mal mit dieser Zeile<br>

Sheet.HPageBreaks.Add(Sheet.Range['D1', 'D1'])

[Lothar-K]

Habe mich auch jetzt damit befassen müssen und folgende Lösung gefunden, die auch funktioniert:
Cells[Value,1].Select;
ActiveSheet.HPageBreaks.Add( Selection );