Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.07.2025 17:39:22
keine Daten Börsenhistorie für den 18.07.2025
19.07.2025 15:24:27
VBA Click-Routine Option-Button
19.07.2025 14:48:31
wenn Funktion mit mehreren Bedingungen
19.07.2025 07:22:38
Datei hochladen
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
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 Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
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

Kategorie
Seitenverwaltung
Tags
#inhaltsverzeichnis #seitenzahl #vba
Relevante Fragen
Anzeige
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)

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