Zelle auf Seite

Forumthread: Zelle auf Seite
2 Beiträge zu diesem Forumthread
Anzeige

Forumthread: Zelle auf Seite

Zelle auf Seite

11.11.2003 18:37:57

Markus

Hallo zusammen,
gibt es eine Möglichkeit mit VBA festzustellen,
auf welcher gedruckten Seite sich eine bestimmte Zelle befindet?
Ich möchte das ganze für ein automatisiertes Inhaltsverzeichnis mit Seitenangaben nutzen. Mit "find" krieg ich die Adresse der Zelle. Wie kann ich jetzt diese Adresse der Seitenzahl zuordnen.
Geht das überhaupt?

Schönen Dank schonmal im Vorraus
und schönen Feierabend!
Markus

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Zelle auf Seite

11.11.2003 19:07:52

ChrisL
AW: Zelle auf Seite

13.11.2003 11:04:39

Markus

AW: Zelle auf Seite

11.11.2003 19:07:52

ChrisL

Hi Markus

Falls du in der Breite nur eine Seite hast, dann müsste es mit folgender Funktion gehen...

Option Explicit


Sub t()
MsgBox Seitenzahl(Range("A56"))
End Sub


Function Seitenzahl(rng As Range) As Integer
Dim iBreak As Integer
With ActiveSheet
If .HPageBreaks.Count = 0 Then
Seitenzahl = 1
Exit Function
End If
For iBreak = 1 To .HPageBreaks.Count
If rng.Row < .HPageBreaks(iBreak).Location.Row Then
Seitenzahl = iBreak
Exit Function
End If
Next iBreak
Seitenzahl = .HPageBreaks.Count + 1
End With
End Function

Gruss
Chris

AW: Zelle auf Seite

13.11.2003 11:04:39

Markus

Hallo Chris,
geniale Idee.
Vielen Dank für die Hilfe

Gruß
Markus

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!