Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1348to1352
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Seitenzahl Druckbereich

Seitenzahl Druckbereich
24.02.2014 19:07:06
Kurt

Guten Abend,
habe mir dieses kleine Makro zusammengebastelt.
Wenn also in F1 eine 2 steht, soll die Seitenzahl Menge
angezeigt werden.
Also Seite 1 von 2.
Leider steht False drin
Wenn ich die 2 lösche, zeigt die Fußzeile Richtigerweise
nichts an.
Wo es den der Fehler ?
mgruß kurt k
If ActiveSheet.Range("F1") = "2" Then
With ActiveSheet.PageSetup
.CenterFooter = .CenterFooter = "&""Calibri,Standard""&8&P von &N"
End With
Else
With ActiveSheet.PageSetup
.CenterFooter = ""
End With
End If

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Seitenzahl Druckbereich-so ? Gruß
24.02.2014 20:31:22
robert

Sub tt()
With ActiveSheet.PageSetup
.CenterFooter = ""
If ActiveSheet.Range("F1") = "2" Then
.CenterFooter = "Seite &P von &N Seiten"
.CenterFooter = "&""calibri,Standard""&8Seite &P von &N Seiten"
Else
.CenterFooter = ""
End If
End With
End Sub

AW: Seitenzahl Druckbereich-so ? Gruß
24.02.2014 20:44:14
Kurt
Guten Abend Robert,
muß leider dringend weg, werde direkt morgen früh testen.
Gruß Kurt k

Leider nicht
25.02.2014 09:57:37
Kurt
Guten Morgen Robert,
klappt nicht.
Habe mal mein Beispiel:
With ActiveSheet.PageSetup
.CenterFooter = ""
If ActiveSheet.Range("F1") = "2" Then
.CenterFooter = "Seite &2 von &2 Seiten"
.CenterFooter = "&""calibri,Standard""&8"
Else
.CenterFooter = ""
End If
End With
es soll also die Seite 2 von 2 eingesetzt werden.
Ich habe den Druckbereich mit Blatt 1 nicht verknüpft.
Bei mir wird, nachdem ich die beiden Zahlen 2 eingesetzt habe nichts angezeigt.
mfg kurt k

Anzeige
Danke so gehts. -)
25.02.2014 11:16:06
Kurt
Hallo Robert,
so gehts.
.CenterFooter = "&""Calibri,Standard""&8Seite 2 von 2 Seiten"
mfg gruß kurt k

Danke so gehts. -)
25.02.2014 11:53:37
Kurt
Hallo Robert,
so gehts.
.CenterFooter = "&""Calibri,Standard""&8Seite 2 von 2 Seiten"
mfg gruß kurt k

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige