Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Zelle auf Seite

Forumthread: Zelle auf Seite

Zelle auf Seite
11.11.2003 17: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
Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: Zelle auf Seite
11.11.2003 18: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
Anzeige
AW: Zelle auf Seite
13.11.2003 10:04:39
Markus
Hallo Chris,
geniale Idee.
Vielen Dank für die Hilfe

Gruß
Markus

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige