Summe in leerer Zeile bilden
06.08.2018 11:00:50
Michael
ich komme mit einem Problem zu euch:
In folgender Tabelle würde ich gerne die leeren Zellen (grauer Hintergrund) mit der Summe (als Formel) der fettformatierten Zellen füllen, jeweils bis zur nächsten grauen Zelle.
Da die Zeilenanzahl variabel ist, möchte ich das gerne über vba lösen, aber ich komme leider nicht weiter.
Für die Summe der schon vorhandenen fettformatierten Zellen habe ich folgenden code benutzt:
Dim AR As Range
For Each AR In Columns(2).SpecialCells(xlCellTypeConstants, 1).Areas
AR.Cells(AR.Rows.Count + 1, 1).Formula = "=sum(" & AR.Address(0, 0) & ")"
Next
Grüße und mit besten Dank
Michael