Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
836to840
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
836to840
836to840
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Zwischensumme mit VBA?

Zwischensumme mit VBA?
11.01.2007 15:58:20
Jochen
Hi,
möchte beim Ausdrucken einer Tabelle nur von A1:A & Zeile mit dem ersten
Seitenumbruch in der mittleren Kopfzeile die Summe dieser Zellen zu stehen haben. Finde, das ist schwierig, da die Anzahl der Werte ja u.a. auch von der
Schriftgröße abhängt. In der Tabelle gibt es keine Formeln, nur Konstanten und
das muss auch so bleiben.
Hoffe auf eure Hilfe.
mfg Jochen

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Zwischensumme mit VBA?
11.01.2007 16:54:43
Franc
Also das funktioniert nur für das 1. Blatt und auch nur dann, wenn es das 1. Horizontale Blatt ist.
Willst du mehrere Blätter so ausdrucken, dann poste mal plz eine Tabelle, damit man einen Überblick hat.

Sub Umbruch_und_Summe_in_Kopfzeile()
If ActiveSheet.HPageBreaks.Count > 0 Then Zeile = ActiveSheet.HPageBreaks(1).Location.Offset(-1, 0).Address
If ActiveSheet.HPageBreaks.Count < 1 Then Zeile = Range("A1").End(xlDown).Address
Summe = WorksheetFunction.Sum(Range("A1:" & Zeile).Value)
ActiveSheet.PageSetup.CenterHeader = Summe
End Sub

Anzeige
Dank, klappt nach Anpassung. oT
11.01.2007 19:11:29
Jochen
oT

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige