Live-Forum - Die aktuellen Beiträge
Datum
Titel
20.04.2024 14:03:38
Http-Request (POST) für GraphQL API-Abfrage
20.04.2024 08:56:18
Textbox in Tabellenblatt ohne Bestätigung in Zelle eintragen
20.04.2024 07:57:54
Tablle fürs E-Auto - Preis wenn kürzer als 60 Min Ladezeit
20.04.2024 00:49:19
Excel Sheet in einen Excel Kalender einfügen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
336to340
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
336to340
336to340
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

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

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
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige