Seitenumbruch

Moin, moin,
da meine Kenntnisse in Excel nicht so sehr berauschend sind, habe ich mal eine Frage.
Ich habe eine umfangreiche Liste erstellt, worin sich in erster Linie Spalten mit Menge, Einzelpreis und Gesamtpreis befinden. Diese Liste ist mal nach Vorgabe eines Lagers erstellt worden. Auf jedem Blatt, derzeit glaub ich so um die 80, möchte ich nun unten rechts die Summe haben. Das klappt auch. Nur wenn ich jetzt eine Zeile auf dersten Seite einfüge, dann rutscht mir alles hinunter und ich muss die Zelle mit der Blattsumme neu positionieren. Das natürlich bei den anderen Seiten auch. Irgendwie nervig. Wie bekomme ich das hin, das die Zelle mit der Summe immer am gleichen Platz bleibt, unabhängig davon wo und wieviel Zeilen ich einfüge.
Danke schon mal für eure Tips im Voraus und einen schönen Sonntag noch.
Gruß Blaskuit

 

Das letzte Macro hab ich vor 25 Jahren geschrieben und dann noch für ein CAD-Programm. Langt die Antwort?
Mal im Ernst, ich müsste mich einlesen und würde das dann schon irgendwie hinbekommen.

 

Hi,

dann versuche diesen Code mal als Basis

Code:

Sub Seitenzahlen_Druckseiten()
    '*******************
    ' Von Herbert Grom - Ermittlung der Druckseitenanzahl
    Dim i As Integer
    i = ExecuteExcel4Macro("Get.Document(50)")
    '*******************
    Dim loSeite As Long
    Dim loTitelzeile As Long
    Dim loZeile As Long
    With ActiveSheet
        loZeile = .HPageBreaks(2).Location.Row - .HPageBreaks(1).Location.Row - 1
        For loSeite = 1 To i
            If loSeite = i Then
                .Cells(.HPageBreaks(loSeite - 1).Location.Row + loZeile, 6) = "Hallo"
            Else
                .Cells(.HPageBreaks(loSeite).Location.Row - 1, 6) = "Hallo"
            End If
        Next loSeite
    End With
End Sub

In Spalte F wird in die Zeile vor dem Seitenumbruch das Wort "Hallo" eingetragen. Anstattdessen kannst du deine Summe eintragen lassen. Vorher natürlich die ursprünglichen Einträge löschen. Der Code funktionert nur, wenn alle Seiten untereinander angeordnet sind.

 

Danke für die Antwort. Werde es morgen mal probieren. Nur gut, das alle Seiten untereinder angeordnet sind.