Zelle auf Seite

• Zelle auf Seite von Markus vom 11.11.2003 17:37:57
  • AW: Zelle auf Seite - von ChrisL am 11.11.2003 18:07:52
    • AW: Zelle auf Seite - von Markus am 13.11.2003 10:04:39

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

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




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

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