Werte summieren
10.12.2004 13:23:22
Jan
folgendes prob:
ich möchte in die leeren zellen der 3.spalte eines excel sheets die summierten werte der darüberligenden werte einschreibe lassen:
lr = Worksheets(1).Range("B65536").End(xlUp).Row + 1
For j = 7 To lr
If cells(j, 3).Value = Empty Then
cells(j, 4).Value = "*"
cells(j, 3) = k
k = 0
Else: k = (k + cells(j, 3).Value)
End If
Next
leider ergibt sich auch hier das prob, dass das program zwar die werte summiert, jedoch nicht bis zum ende...mach ich grundsätzlich was falsch?
Greetz
JAN;)