Ich habe folgendes Problem:
Mein Makro soll solange nach rechts gehen und die Werte in den Zellen aufaddieren, bis die letzte zelle der gerade aktiven Zeile erreicht ist:
Sub nachrechts_und_addieren()
Dim a as Double
Dim b as Double
?
ActiveCell.Offset(0, 1).Select
ActiveCell.value = a
b = b + a
?
Ist natürlich so nicht funktionstüchtig. a und b sind Hilfsvariablen, in denen der Wert gespeichert werden soll.
Wie realisiere ich es, dass solange nach rechts gegangen wird, bis die letzte Zelle erreicht ist?
Weiteres Problem: Es soll nur jede zweite Zelle addiert werden.
Vielen Dank im Vorraus für Eure Hilfe!
MFG Daniel