Supportnet / Forum / Tabellenkalkulation

Ich will in eine Exceltabelle Seite..von...eintragen, die aber automatisch hochgezaelt werden. Der Schriftkopf wird auf jede Seite uebernommen und die Seitenzahlen sollten sich aktualisieren.Es geht nur um die Zahlen und nicht um den Text. B.

Muss es denn unbedingt die Tabelle sein? Oder kann es auch die Kopf- bzw. Fußzeile sein. Zu erreichen unter Datei => Seite einrichten => Kopfzeile/Fußzeile. Hier nun die entsprechenden Buttons anklicken, nun kannst du die Gesamtseitenzahl eintragen lassen.

Viel Erfolg
MasterOfHardness

Es kann leider icht in Kopf-oder Fusszeile sein, sondern muss in der Tabelle sein.
B.

Hallo Babara,

vielleicht ist da was passendes dabei:

http://www.herber.de/forum/archiv/264to268/t265896.htm

http://www.office-loesung.de/viewtopic.php?p=23890

gruss
pelle

Ps.: google=> Seitenzahl in Zelle

gehe in exel auf
seitenansicht
layout
kopfzeile/fußzeile
benutzerdefinierte kopfzeile oder fußzeile wählen
der 2.button von links ist platzhalter für die
aktuelle seite und
der 3.button ist platzhalter für die gesamtseitenzahl der exceltabelle.

meine dokumente zeigen in den fusszeilen an


seite 4/10

seite und / musst du natürlich selbst eingeben.

Hi, das geht nicht, vielleicht mit VBA

CU aliba

hi alle :)

eine loesung vor dem druck aktiv :)

einzufuegen vbeditor/projektexplorer/arbeitsmappe alternativ tabellenbezogen

gruss nighty

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

alternativ wie frueher vielleicht :)

din a4 seite z.b.24 zeilen

excel 47 zeilen

47/24 ist seiten anzahl

schoenen tag noch allen es ist jetzt 4 uhr 57 gaehnn. :)

hi alle :)

so wie frueher :)

gruss nighty

Sub makro01()
Set LastCell = ActiveSheet.Cells.SpecialCells(xlLastCell)
alta = LastCell.Row
a = LastCell.Row
Do While Application.CountA(Rows(a)) = 0 And a <> 1
a = a - 1
Loop
alta = a
altb = LastCell.Column
b = LastCell.Column
Do While Application.CountA(Columns(b)) = 0 And b <> 1
b = b - 1
Loop
altb = b
lzeile = alta
lspalte = altb

Rem zeilenanzahl einer din4 seite

b = lzeile / 24
c = Round(b)

Rem c ist anzahl seiten

End Sub

hi alle :)

fuer die geizigen CHEFS ein makro was den tagesverbrauch von seiten festhaelt und bei maximumueberschreitung den druckauftrag loescht :)

gruss nighty

Private Sub Workbook_BeforePrint(Cancel As Boolean)

rem tagesdatum in A1
rem tagesseitenzaehler in A2

If Date <> Range("A1") Then
Range("A1") = Date
Range("A2") = 0
End If

rem 200 seiten maximum

If Range("A2").Value < 200 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

• Seitenzahlen Excel anzeigen
• MEGA-DRINGEND: Seitenzahlen in römischem Format
• Seitenzahlen in Exel
• Seitenzahlen einfügen
• Seitenzahlen im Inhaltsverzeichnis automatisieren