title image


Smiley Re: zeilen bis zum automatischen Seitenumbruch zählen
Hallo Thomas,

folgender Code liefert ir nacheinander jeweils die Zeile 1 einer neuen Seite in

der Variablen pb



Sub getPbrk()

For i = 1 To ActiveSheet.HPageBreaks.Count

pb = ActiveSheet.HPageBreaks(i).Location.Row

Next

End Sub


Viele Grüße aus Langen (Hessen),
           "Quinoman"
Michael


Bei Lösungsvorschlägen bitte das Feedback nicht vergessen. Ich (und oft auch andere) möchte gerne wissen, ob etwas geholfen/geklappt hat.



geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: