Seitennummer von Zelle ermitteln

Forumthread: Seitennummer von Zelle ermitteln
4 Beiträge zu diesem Forumthread
Anzeige
VBA Beispiele zu verwandten Themen

Forumthread: Seitennummer von Zelle ermitteln

09.10.2004 19:23:20

Zelle

Hallo,
wie kann ich de Seitennummer ermitteln, in der z.B. die Zelle (A90) gedruckt werden würde?
Ich benötige dieses um einen Druckbereich zusammenzuhalten , indem ich ggf. manuell einen Seitenumbruch vor deisem Bereich einfüge.
Danke für Hilfe,
Heinz

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Seitennummer von Zelle ermitteln

09.10.2004 20:03:30

Zelle
AW: Seitennummer von Zelle ermitteln

Zelle
AW: Seitennummer von Zelle ermitteln

09.10.2004 22:01:23

Zelle
AW: Seitennummer von Zelle ermitteln

Zelle

AW: Seitennummer von Zelle ermitteln

09.10.2004 20:03:30

Zelle

Hallo Heinz,
diese Funktion tut's, sie ist aber sehr langsam in der Ausführung:


Function ZelleAufSeite(z As Range) As Integer
Dim i As Long, ze As Long
For i = 1 To ActiveSheet.HPageBreaks.Count
ze = ActiveSheet.HPageBreaks(i).Location.Row
If ze > z.Row Then
ZelleAufSeite = i
Exit Function
End If
Next i
ZelleAufSeite = i
End Function

Vorher muss auch noch die Seitenumbruchansicht aktiviert werden:
ActiveSheet.DisplayPageBreaks = True
Gruß Matthias

AW: Seitennummer von Zelle ermitteln

Zelle

? Gibts bei dir keine VPageBreaks?
Udo

AW: Seitennummer von Zelle ermitteln

09.10.2004 22:01:23

Zelle

Hallo Udo,
ja stimmt, ich hab vorausgesetzt, dass alles auf eine Seite (in der Breite) passt.
Hätte ich vielleicht dazuschreiben sollen.
Gruß Matthias

AW: Seitennummer von Zelle ermitteln

Zelle

Hallo,
wie stellst du dir das vor, willst du die Zelladresse irgendwo(und wenn ja, wo) eingeben,
oder die Zelle z.B. markieren?
Gruß K.Rola