AW: Seitenzahl auslesen
21.11.2007 10:46:15
Beverly
Hi Michael,
ich hoffe, ich habe den Code so angepasst, dass er deinen (euren) Erfordernissen entspricht
Sub seitennummer()
Dim raZelle As Range
Dim loHUmbruch As Long
Dim strStart
Set raZelle = ActiveSheet.Columns("A").Find("Hallo")
If Not raZelle Is Nothing Then
strStart = raZelle.Address
Do
For loHUmbruch = 1 To ActiveSheet.HPageBreaks.Count
If ActiveSheet.HPageBreaks(loHUmbruch).Location.Row > raZelle.Row Then Exit For
Next loHUmbruch
MsgBox loHUmbruch
Set raZelle = ActiveSheet.Columns("A").FindNext(raZelle)
Loop While raZelle.Address strStart And Not raZelle Is Nothing
End If
End Sub
Was die Laufzeit der Suche betrifft - bei 70 Seiten, dauert es schon ein bisschen...
Bis später,
Karin