jede zweite zelle addieren
29.06.2004 12:27:00
Daniel
Folgendes Makro addiert jede zweite Zelle in einer Tabelle und schreibt das Ergebnis der Addition jeweils in Spalte B. Genauer: der zweite Wert der zeile + der vierte + der sechste usw.
Sub ist_werte_addieren()
Dim sp, i
For i = 4 To Cells.Find("*", searchdirection:=xlPrevious).Row
sp = Cells(i, 256).End(xlToLeft).Column
Cells(i, 2) = Evaluate("=sum(if(mod(column(" & Range(Cells(i, 2), Cells(i, sp)).Address & "),2)=0," & Range(Cells(i, 2), Cells(i, sp)).Address & "))")
Next
End Sub
Ich brauche jetzt ein zusätzliches Makro, das den ersten + den dritten wert usw addiert und in Spalte A schreibt. Um das Ergebnis in Spalte A zu schreiben muss nur in Zeile 5 des Makros Cells(i, 2) durch Cells(i , 1) ersetzt werden.
Da ich aber den Rest des Makros nicht verstehe, wäre es sehr nett, wenn mir jemand weiterhelfen könnte!
Zum besseren Verständnis hier die Tabelle dazu:
https://www.herber.de/bbs/user/7850.xls
Viele Grüße
Daniel