title image


Smiley Re: Seitenzahlen in Zellen
Hallo, es geht über das Zählen der Seitenumbrüche:1.) die Gesamtseitenzahl ist einfach:Sub seitenzahl()spalte = ActiveCell.Columnzeile = ActiveCell.RowSeiten = ActiveWindow.SelectedSheets.HPageBreaks.Count + 1Cells(zeile, spalte) = seitenEnd Sub2.) um die Seitenzahl bis zur aktiven Zelle zu bekommen, muss man erst einen Druckbereich bis dahin definieren und dann die abfrage starten - danach den Druckbereich wieder löschenspalte = ActiveCell.Columnzeile = ActiveCell.RowActiveSheet.PageSetup.PrintArea = "$A$1:$a$" & Trim(CStr(zeile))seiten = ActiveSheet.HPageBreaks.Count + 1ActiveSheet.PageSetup.PrintArea = ""Cells(zeile, spalte) = seitenEnd SubHoffentlich helfen diese HinweiseUlrich S.

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: