PDA

Vollständige Version anzeigen : Summen bilden


Rudi G
10.03.2009, 09:16
Hallo zusammen,

ich möchte folgendes machen:

suche mir letzte Eintragung in einer Spalte, addiere diese mit der 2.letzten und ziehe mir die 3. letzte ab. Die Spalte ist bekannt, aber nicht die letzte Eintragung.
z.B:
-345,45
+121,12
224,17
=XXXX

und trage mir das Ergebnis in die erste freie Zelle ein (also in XXXX).

Die letzte Eintragung zu finden funktioniert, aber wie schaft man die + bzw -
zu rechnen.

Backowe
10.03.2009, 09:30
Hi,

<div><link href="http://www.ms-office-forum.net/forum/externals/codeconv.css" rel="stylesheet"><pre><span class="TOKEN">Sub</span> Ergebnis()
<span class="TOKEN">Dim</span> LZelle&amp;
LZelle = Cells(Rows.Count, &quot;A&quot;).End(xlUp).Row
Range(&quot;A&quot; &amp; LZelle + 1) = Range(&quot;A&quot; &amp; LZelle) + Range(&quot;A&quot; &amp; LZelle).Offset(-1, 0) - Range(&quot;A&quot; &amp; LZelle).Offset(-2, 0)
<span class="TOKEN">End</span> <span class="TOKEN">Sub</span></pre></div>
Code eingefügt mit dem MOF Code Converter (http://www.ms-office-forum.net/forum/codeconverter.php)

Rudi G
10.03.2009, 09:41
vielen dank Jürgen,

es hat geklappt

echt super