Päckchen summieren
08.09.2003 14:00:54
lotharP
ist wahrscheinlich ein LarifariProblem, allerdings krieg ich's nicht so richtig gelöst!?
Ich möchte in einer langen Kollonne Zahlen die in verschieden große Päckchen aufgeteilt sind Summen bilden. Dies allerdings ohne Summewenn!
also die Tabelle sieht etwa so aus:
A.........B
...... 1200
...... 600
...... 2000
...... 1200
....* 5500 Hier sind zwei Zeilen gelöscht worden die nicht angezeigt werden sollen, mit einem Gesamtwert von 500.
Danach folgen einige Päckechen mit ähnlichem Verhalten(Zeilen eingefügt/entfernt) Die Summe die dort steht ist eine erzeugte, als Wert aus einer Datenbank mitgegebene Zahl.(Daher 5500)
Da ich ja einfach Summen bilden kann indem ich die Funktion aufrufe und der Bereich "Automatisch" ausgewählt wird, hab' ich mir gedacht----Müsste ja eigentlich auch funktionieren? Nach langem probieren hab' ich das hier gefunden:
Public
Sub rechneSpalt()
Dim Nummer, aktcel, Zahlp
Selection.End(xlDown).Select
nochmal:
aktcel = ActiveCell.Row + 1
Selection.End(xlDown).Select
Nummer = ActiveCell.Row
ActiveCell.Offset(1, 0).Range("A1").Select
Range("f" & Nummer + 1).Formula = "=SUM(f" & aktcel & ":f" & Nummer & ")"
Selection.Font.Bold = True
Selection.Copy
GoTo nochmal:
End Sub
Ist soweit auch funktionstüchtig, nur wenn ich keine SUMMENZEILE habe und ein Päckchen nur eine Zeile groß ist gehts halt nicht mehr.
Ich hoffe Problem ist erkannt? Wär schön wenn mir jemand helfen könnte.
Danke i.V.
Gruß
Lothar