Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
672to676
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
672to676
672to676
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Zeilennummern der Seiten ermitteln

Zeilennummern der Seiten ermitteln
25.09.2005 21:05:16
WalterK
Hallo!
Gibt es eine Möglichkeit, die Zeilennummern aller Seitenanfänge, so wie sie im Seitenlayout angezeigt werden, aufzulisten!
Ein Beispiel:
Tabelle von A1 bis H1000
Seite 1 beginnt bei Zeile 1,
Seite 2 beginnt bei Zeile 41,
Seite 3 beginnt bei Zeile 85,
usw., bis zum letzten Eintrag in der Tabelle.
In K1 sollte dann 1 stehen, in K2 sollte 41 stehen, in K3 sollte 85 stehen, usw.
Servus, Walter

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

Betreff
Datum
Anwender
Anzeige
AW: Zeilennummern der Seiten ermitteln
25.09.2005 21:33:52
K.Rola
Hallo,
Option Explicit
Sub way()
Dim h As Long, z As Long, p As Long
Application.ScreenUpdating = False
ActiveWindow.View = 2
h = ActiveSheet.HPageBreaks.Count
If h > 0 Then
For p = 1 To h
z = z + 1
Cells(z, 11) = ActiveSheet.HPageBreaks(p).Location.Row
Next
End If
ActiveWindow.View = 1
Application.ScreenUpdating = True
End Sub
Gruß K.Rola

AW: Zeilennummern der Seiten ermitteln
25.09.2005 21:41:47
WalterK
Hallo!
Bestens, klappt ausgezeichnet.
Danke und schönen Abend noch!
Walter
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige