Hi,
ich habe ein kleines Problem mit Excel97. Wenn ich z.B. in Excel eine längere Rechnung schreibe, die über mehrere Seiten geht, gibt es dann eine Möglichkeit, dass Excel am Ende jeder Seite automatisch die Zwischensumme auswirft?
Für Eure Hilfe bedanke ich mich im Voraus!
CU
Jaelle
Grossadministrator jaelle „Excel97 - Zwischensumme automatisch auswerfen“
Mir fällt dazu nur die quasi-automatische Lösung ein:
Schalte die Seitenumbruchvorschau ein, dann hast du die Anzeige des Seitenumbruchs. Dort fügst du jeweils eine Zeile mit der Zwischensummenrechnung ein.
jaelle Grossadministrator „Mir fällt dazu nur die quasi-automatische Lösung ein: Schalte die...“
Danke für deine schnelle Antwort. So habe ich das bisher aber schon gemacht. Gibt es wirklich keine Möglichkeit, das zu automatisieren?
CU
Jaelle
Uli M jaelle „Danke für deine schnelle Antwort. So habe ich das bisher aber schon gemacht....“
Obwohl ich nicht eben Excel-Spezialist bin, hat's mich doch gereizt und ich habe was dazu probiert. Vielleicht kannst du darauf aufbauen. Bedenke u.a., dass
- die Makroausführung die Rückgängig-Liste löscht
- eine event. Endsumme nicht die Zwischensummen mit erfassen sollte (also andere Spalten)
- das Makro so nur 1 mal ablaufen sollte (vorab könnte natürlich nach den Zwischensummen gesucht werden und die Zeilen gelöscht)
Sub xxx()
Const ksSpalte As String = "C" ' Die Spalte mit den aufzusummierenden Werten
Dim oBlatt As Worksheet
Dim oHorSeitenumbruch As HPageBreak
Dim oUmbruch As Range
Dim I As Integer, iStart As Integer, iAkt As Integer
Dim sFormel As String
iStart = 1 ' 1. Zeile mit den aufzusummierenden Werten
Set oBlatt = ActiveSheet
With oBlatt
.ResetAllPageBreaks ' nur zum Test
If .HPageBreaks.Count For I = 1 To .HPageBreaks.Count
Set oHorSeitenumbruch = .HPageBreaks(I)
Set oUmbruch = oHorSeitenumbruch.Location ' ergibt 1. Zelle der nächsten Seite
iAkt = oUmbruch.Row - 1
sFormel = "=SUM(" & ksSpalte & iStart & ":" & ksSpalte & iAkt - 1 & ")"
Set oUmbruch = .Rows(iAkt)
oUmbruch.EntireRow.Select
Selection.Insert xlDown
.Cells(iAkt, 1) = "Zwischensumme:"
.Cells(iAkt, 2).Formula = sFormel
iStart = iAkt + 1
Next I
End With
End Sub
Kolti jaelle „Excel97 - Zwischensumme automatisch auswerfen“
Das mußt Du dann mit VBA machen.
Kolti Nachtrag zu: „Das mußt Du dann mit VBA machen. “
In der Hilfe bei excel 2000 gibt es diesen Hinweis:
Teilergebnisse in Listen im Überblick (Einfügen automatischer Teilergebnisse)
