Clever-Excel-Forum

Hallo zusammen,

ich versuche folgende Codes

Code:
'Range("AG4") = Application.WorksheetFunction.Sum(Range("AD4:AF4"))

'Range("AG5") = Application.WorksheetFunction.Sum(Range("AD5:AF5"))

'Range("AG6") = Application.WorksheetFunction.Sum(Range("AD6:AF6"))

'Range("AG7") = Application.WorksheetFunction.Sum(Range("AD7:AF7"))

'Range("AG8") = Application.WorksheetFunction.Sum(Range("AD8:AF8"))

in eine Schleife umzuwandeln.

Der folgender Versuch addiert AD4 mit AF4. Der Wert AE4 wird nicht addiert

Code:
Dim n As Integer

For n = 4 To 8

Cells(n, 33) = Application.WorksheetFunction.Sum(Cells(n, 30) + Cells(n, 32))

Next n

Dann habe ich es mit "&" versucht

Code:
Dim n As Integer

For n = 4 To 8

Cells(n, 33) = Application.WorksheetFunction.Sum(Cells(n, 30) & Cells(n, 32))

Next n

Das Ergebnis ist für mich nicht nachvollziehbar.

Eine Beispieldatei füge ich bei.

Ich komme nicht auf das Ergebnis. Ich bitte um Hilfe... Danke...

Wieso nicht

Code:
Range("AG" & n) = Application.WorksheetFunction.Sum(Range("AD" &n & ":AF" & n))

Ansonsten:
https://software-solutions-online.com/vb...ow-number/

Hallo,

Code:
Cells(n, 33) = Application.WorksheetFunction.Sum(Range(Cells(n, 30), Cells(n, 32)))

'oder

Cells(n, 33) = Application.WorksheetFunction.Sum(Cells(n, 30).Resize(, 3))

Gruß, Uwe

Hallo,

vielleicht so?

Code:
Cells(n, 33) = Application.WorksheetFunction.Sum(Cells(n, 30).Resize(,3))

@Misterburns,

danke, das kannte ich nicht. Der Code funktioniert.

@Kuwer,

vielen Dank, beide Codes funktionieren. Ich habe deine erste Lösung genommen.

Hi,

ganz ohne Schleife:

Range("AG4:AG8").Formula = "=SUM(AD4:AF4)"
Range("AG4:AG8").Value = Range("AG4:AG8").Value

Tommiks

MisterBurns

Kuwer

Steffl

Tommiks

HKindler