Supportnet / Forum / Tabellenkalkulation

Hallo zusammen! Ich habe vollgende zwei Probleme: 1. In einer Excel Arbeitsmappe möchte ich automatisch fortlaufende Seitenzahlen über alle Arbeitsblätter vergeben. Gibt es dazu eine Möglichkeit im Excel?? 2. Ich will, dass die Seitenzahlen immer rechts unten stehen. Und zwar immer rechts wenn man das Papier hochkant hält auch wenn ein Blatt mal in Querformat ist. Ist das möglich? Danke für Eure Antworten im Voraus! Blue

hi alle :)

hier ein netter trick um die seiten anzahl zu ermitteln :)

es wird ein druckauftrag GEFORDERT,seiten ermittelt und druckauftrag wieder geloescht
ausgabe der seitenanzahl ist wie unten zu sehen ist, zelle A2 :)

gruss nighty

Private Sub Workbook_BeforePrint(Cancel As Boolean)
Range("A2").Value = ExecuteExcel4Macro("Get.Document(50)")
Cancel = True
End Sub

hi alle :)

falls ein geiziger chef present ist :)

bei ueber 20 blatt papier pro tag kommt eine msgbox mit gemecker das zuviel papier verbraucht worden ist ,somit der druckauftrag abgebrochen wird :) ,naechste druck erst morgen wieder :)

stetige erziehung der angestellten ist zwingend erforderlich :)

gruss nighty GRINS

Private Sub Workbook_BeforePrint(Cancel As Boolean)
If Date <> Range("A1") Then
Range("A1") = Date
Range("A2") = 0
End If
If Range("A2").Value < 21 Then
Range("A2").Value = Range("A2").Value + ExecuteExcel4Macro("Get.Document(50)")
Else
Cancel = True
Beenden = _
MsgBox("ZUVIEL PAPIER VERBRAUCHT GEHALTSKUERZUNG :(" & _
OK)
End If
End Sub

Hi,

also ich glaube nicht dass dazu ein VBA-Code verwendet werden muss, nighty. Auch wenn ich eher vieles und auch lieber mit Makros und dergleichen löse, kann man das anders lösen.

Gehe in der Menüleiste auf Datei => Seite einrichten. Dann wechsele auf die Registerkarte Kopfzeile/Fußzeile und klicke dort auf die Schaltfläche Benutzerdefinierte Fußzeile... Klicke danach in das rechte von den drei Fenstern und betätige danach das Icon mit dem Blatt und der Raute. Es erscheint in dem Fenster &[Seite]. Dieses gibt die aktuelle Seitenzahl an. Du kannst aber auch den Button daneben, also den mit dem Blatt und den zwei Kreuzen betätigen. Dann erscheint in dem Fenster &[Seiten]. Das gibt die Gesamtanzahl aller Seiten an. Man kann das ganze auch kombinieren, z.B. so: Seite &[Seite] von &[Seiten]. Dort steht dann nachher auf der Seite Seite x von y (x und y natürlich als Zahl). Egal ob das Blatt Hochkant oder Quer gedruckt wird, die Seitenzahl steht immer rechts unten.

Ich hoffe, das Dich das weiterbringt. Bei Fragen noch mal melden.

MfG,
coros
_{Da hier der einzige Lohn für die Helfer eine Rückmeldung ist, wäre es nett, wenn Du ein}
^{Feedback abgeben könntest, ob der Lösungsvorschlag Dein Problem gelöst hat.}

hi coros :)

nette idee :)

da ich mit excel kaum arbeite weiss ich halt nur wenig :)

ich hab dort halt das basic entdeckt,zum tuefteln :)

gruss nighty

• Seitenzahlen in Word
• Excel Arbeitsblätter
• Excel 2002 Dateien in Excel 2007 für MS Vista Home Premium
• Aktueller Ordner soll Standardordner sein!
• Suchen in Arbeitsmappen