&[Seite]&[Seiten] in Zelle kopieren

[echo]

Hallo zusammen,
in der benutzerdefinierten Kopfzeile ist es möglich das aktuell zu druckende Blatt sowie die druckbaren Blätter anzeigen zu lassen.
&[Seite] / &[Seiten]
Ergebnis :  1 / 4

Ich würde diese Anzeige aber statt in der Kopfzeile lieber in der Zelle Q16 der Wiederholungszeilen oben einfügen.
Ist das möglich ? Wäre über Hilfe sehr dankbar !
Gruß Holger

[RPP63]

Moin Holger!
Seiten bekomme ich ja noch mit einer UDF hin:

PHP-Code:

Function Seiten()
Seiten = ActiveSheet.HPageBreaks.Count + 1
End Function 


Seitennummer kann wohl nur auf der jeweils letzten Zeile oberhalb des Seitenumbruchs platziert werden. 
(bei meinem Test in Spalte L)

PHP-Code:

Sub Seite()
Dim i&
With Tabelle1
  For i = 1 To .HPageBreaks.Count
    .HPageBreaks(i).Location.Offset(-1, 11) = "Seite: " & i
  Next
  End With
End Sub 


Dummerweise schmiert mir das Makro bei Seite 5 ab, obwohl es 28 Umbrüche gibt. 

Ich hänge meinen Test mal an, vielleicht erkennt ja jemand meinen Fehler.

Gruß Ralf

[echo]

Hallo Ralf 
schon mal danke das du dich der Sache annimmst. Ich kann da leider überhaupt nichts zu beitragenden.
Für mich ist schon komisch, das Seiten() eine Function und Seite() ein SUB ist .  
Egal, Mal schauen was draus wird.
Danke noch mal

Gruß Holger

[echo]

https://www.herber.de/forum/archiv/1192t...eiben.html
von: Uduuh [Udo]

Hallo zusammen
ich habe auf der verlinkten Seite ein Makro entdeckt, das einen Druckauftrag auslöst und die Werte in die Zelle schreibt.

Als benutzerdefinierte Funktion wäre natürlich schön, aber im Prinzip ist das schon ein Ansatz der zu funktionieren scheint.
gruß Holger

[RPP63]

Ja, der Code ist prima!

Übrigens hat das temporäre Umschalten in die Seitenumbruchsvorschau auch mein Makro zum Laufen gebracht.

Verstehen muss ich das aber wohl nicht!  :19:

[Ego]

Hallo,

die Liste HPageBreaks ist nicht immer vollständig gefüllt.

Wenn ich einen benutzerdefinierten Druckbereich habe oder mich in der Ansicht "Umbruchvorschau" oder "Seitenlayout" befinde, ist sie vollständig.

In der Ansicht "Normal" sind die automatischen Seitenumbrüche häufig nur ungefähr bis zur aktuellen Zeile oder dem letzten manuellen Seitenumbruch richtig eingetragen.

Daher wir in etlichen Forumsbeiträgen empfohlen vor der Auswertung ein Zelle der letzten Zeile zu selektieren.

[echo]

Übrigens hat das temporäre Umschalten in die Seitenumbruchsvorschau auch mein Makro zum Laufen gebracht.

Hallo Ralf
könntest du das noch mal erklären? Meine VBA-Kenntnisse sind nicht so, das ich nachvollziehen kann was noch angepasst werden müsste.

Danke und Grüße
Holger