Re: Summen in Spalte per makro

Tech-Archive recommends: Fix windows errors by optimizing your registry

Hallo Eberhard

danke für deine Hinweise. Ich habe mich bei meiner Frage scheinbar nicht
klar genug ausgedrückt und versuche es noch einmal. Denn weder der Hinweis
von Melanie noch deiner haben das von mir gewünschte Ergebnis erzielt.

Ich bekomme aus einer kameralen Buchhaltung Auswertungen ins Excel
übergeben, die allerdings ein für mich nicht verwendbares Format haben. Teile
dieser Tabelle kopiere ich in eine neue Tabelle. Hierbei gehen Summe verloren
bzw. werden bei Einfügen neuer Zeilen nicht mehr korrekt berechnet.

Ich bekomme also als Beispiel Werte in die Zellen F3 bis F5 und will deren
Summe in F6 ermitteln. F2 ist leer und F7 ist ebenfalls leer. Weitere Werte
stehen zum Beispiel in F8 bis F15, Summe hiervon soll in F16, F17 ist wieder
leer, usw.

Hilft dies zur Schilderung der Problemstellung weiter ? Ich hoffe, Ihr könnt
mir weiterhelfen.

Ich wünsche einen schönen Wochenanfang.

"Eberhard Funke" schrieb:

> Am Wed, 8 Jun 2005 10:02:03 -0700 schrieb Andreas Möller:
>
> Hallo Andreas,
>
> > Ich möchte automatisch die Summe der über der aktive Zelle liegenden Zelle
>
> ich nehme an, Du meinst Zeile
>
> > bilden und zwar für alle Zellen die <> 0 sind,
>
> Warum? die Nullen können doch ohne Einfluss auf das Ergebnis mit addiert
> werden.
>
> > bis ich die erste leere Zelle erreiche. Dies können 2 bis 15 Zellen sein.
>
> Probier's mal so:
>
> Sub Addition()
> Dim Ber As Range
> Dim Spalte As Integer
>
> Set Ber = Range(ActiveCell.Offset(-1, 0), _
> Cells(ActiveCell.Offset(-1, 0).Row, 256))
> Spalte = Ber.Find("").Column
> MsgBox WorksheetFunction.Sum(Range(ActiveCell.Offset(-1, 0), _
> Cells(ActiveCell.Offset(-1, 0).Row, Spalte)))
> End Sub
>
>
> BTW In dieser NG ist es üblich, mit einer Begrüßung (Hallo oder ähnlich)
> einzuleiten und mit einem Gruß abzuschließen. Wenn Du, auch aus Unkenntnis,
> Dich diesem Brauch nicht anschließt, dann kann es Dir passieren, dass von
> Dir in sehr unhöflicher Weise die Einhaltung dieser Höflichkeitsform
> eingefordert wird.
>
> --
> Gruß Eberhard
> XL 2000
>
.

Quantcast