Office: Mit VBA Summe in Zeile errechnen

Hallo,

In Celle J1 soll die Summe der Celle A1 B1 C1 D1 E1 F1 G1 H1 stehen.
Nicht in dieser Form - ActiveCell.FormulaR1C1 = "=SUM(RC[-9]:RC[-1])" gibt es noch eine andere Möglichkeit mit VBA zu diesem Ergebnis zu kommen.

Danke

:)

 

Hallo Uli,

ActiveCell.Value = WorksheetFunction.Sum(Range("A1:H1"))

 

Danke Rainer für Deine schnelle Hilfe.

Dir noch einen schönen Sonntag

 

Nochmal ich,

wie sieht die Function mit ZählenWenn aus = CountIf(A1:I1,"U") ? haut nicht hin

Danke

 

Moin ulli,

Code:

 

Danke auch Dir, wie immer schnelle und gute Hilfe

Danke

 

Hallo zusammen,

ich hab mittlerweile schon viele Codes gesehen zur Summenberechnung und bekomme das auch hin. Wie kann ich das aber etwas vereinfachen? Damit meine ich, ich habe unten angegebenen Code erzeugt und der läuft auch super.
Aber ist ein bißchen umständlich diesen Code so für 500 Zeilen einzugeben. :-(

Gibt es eine Möglichkeit den Code so abzuändern, dass er die Summe jeder Zeile wie unten in die erste freie Zelle schreibt und das die ganze Spalte nach unten macht, bis keine Werte mehr im Auswahlbereich???

z = Cells(2, Columns.Count).End(xlToLeft).Column
Cells(2, z + 1).FormulaLocal = "=Summe(D2:H2)"
Cells(3, z + 1).FormulaLocal = "=Summe(D3:H3)"
Cells(4, z + 1).FormulaLocal = "=Summe(D4:H4)"


Grüße
Marco

 

Hallo Marco,

wenn es Formeln sein sollen:
Code:

Grüße
EarlFred

 

Hallo,
geht auch kürzer:
Code:

Gruß
Rudi

 

Hallo Rudi,

jepp, da haste wohl recht. Habe um eine Ecke zuviel gedacht *wink.gif*

[Edit]
Dann aber bitte noch kürzer:
Code:

*wink.gif*
[/Edit]

Grüße
EarlFred

 

Hallo,
ich hab drüber nachgedacht. Fand's dann aber doch ein wenig zu verwirrend. ;-)
Die 0 im Offset kannst du auch noch weg lassen. .OffSet( ,1)

Gruß
Rudi