Live-Forum - Die aktuellen Beiträge
Datum
Titel
24.04.2024 19:29:30
24.04.2024 18:49:56
24.04.2024 17:19:09
Anzeige
Archiv - Navigation
728to732
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
728to732
728to732
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

VBA Seitenumbruch

VBA Seitenumbruch
07.02.2006 17:00:16
Uwe
Hallo,
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 &gt 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

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: VBA Seitenumbruch
07.02.2006 17:39:23
chris
So gehts.

Sub test()
Dim Pfad
Pfad = Range("A1")
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
End Sub

AW: VBA Seitenumbruch
08.02.2006 09:16:48
Uwe
Hallo Chris,
vielen Dank. Da war ich ja gar nicht so weit weg.
Gruß
Uwe
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige