Anzeige
Archiv - Navigation
756to760
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
756to760
756to760
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Zellen addieren mit VBA
20.04.2006 13:55:08
Matthias
Hallo Forum,
ich möchte mit Hilfe einer VBA mehrere nebeneinander befindliche Zellen aufaddieren, wobei die Anzahl der Zellen variabel sein soll.
Ich möchte also z.B. die Zellen..

Worksheets(2).Cells(5, 5) bis Worksheets(2).Cells(5, variabel)

.. addieren.
Ich möchte es aber nicht folgendermaßen machen:

Worksheets(2).Cells(5, 4).Select
ActiveCell.FormulaR1C1 = "=sum(r[0]c[1]:r[0]c[20])"

Ich möchte also keine Zelle für das Ergebnis benutzen müssen und die Anzahl der zu addierenden Zellen soll variierbar sein.
Vielen Dank schon mal.
Gruß
Matthias

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Zellen addieren mit VBA
20.04.2006 14:00:30
Matthias
Hallo Matthias

Sub test()
Dim a
Const ende = 10
With Sheets(2)
a = WorksheetFunction.Sum(.Range(.Cells(5, 5), Cells(5, ende)))
End With
MsgBox a
End Sub

Gruß Matthias
AW: Zellen addieren mit VBA - Korrektur
20.04.2006 15:08:24
Matthias
Hallo,
da fehlte noch ein Punkt:
a = WorksheetFunction.Sum(.Range(.Cells(5, 5), .Cells(5, ende)))
Gruß Matthias
AW: Zellen addieren mit VBA - Korrektur
20.04.2006 15:11:59
Matthias
Danke schön!
Anzeige

300 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige