Wie schreibt man Range ("AD4:AF4") in Cells um?

[Tommiks]

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...

[MisterBurns]

Wieso nicht

Code:

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

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

[Kuwer]

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

[Steffl]

Hallo,

vielleicht so?

Code:

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

[Tommiks]

@Misterburns,

danke, das kannte ich nicht. Der Code funktioniert.

@Kuwer,

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

[HKindler]

Hi,

ganz ohne Schleife:

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