VBA Seitenumbruch
07.02.2006 17:00:16
Uwe
ich hatte bereits dieses Problem eingestellt, mir konnte jedoch bislang keiner helfen. Nun bin ich ein Schritt weiter.
Ich habe in Zellen einen Wert stehen, der die Zeile für den Zeilenumbruch darstellt. Wenn z.B. in A1 der Wert 155 steht, ist der 1. Seitenumbruch bei Zeile 155 durchzuführen.
Ich habe nun das Problem, dieses als VBA umzusetzen.
Folgenden Versuch habe ich bereits erfolglos unternommen:
Dim Pfad
Pfad = Range("A1) 'in der Zelle A1 steht der Wert 155
If Pfad > 0 Then 'nur Seitenumbruch, wenn neue Seite erforderlich
Rows("Pfad").Select 'hier liegt mein Fehler
ActiveWindow.SelectedSheets.HPageBreaks.Add Before:=ActiveCell
End if
Ich hoffe, dass mir nun jemand helfen kann.
Gruß
Uwe