Zelle auf Seite

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
MsgBox
Bild

Betrifft: Zelle auf Seite
von: Markus
Geschrieben am: 11.11.2003 17:37:57

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

Bild


Betrifft: AW: Zelle auf Seite
von: ChrisL
Geschrieben am: 11.11.2003 18:07:52

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


Bild


Betrifft: AW: Zelle auf Seite
von: Markus
Geschrieben am: 13.11.2003 10:04:39

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

Gruß
Markus


Bild

Beiträge aus den Excel-Beispielen zum Thema " Tabellenblatt"