Summenbildung
05.08.2004 23:01:10
Ulf
Ich suche in Spalte D den letzten Eintrag (Datum), gehe 8 Spalten nach links (Spalte L dort stehen die Zeiten) und möchte die Summe von dieser Zeile bis Zeile 2001.
Sub Summe()
[M1] = [D2001].End(xlUp).Offset(0, 8)
[M2] = [D2001].End(xlUp).Offset(1, 8)
[M3] = [D2001].End(xlUp).Offset(2, 8)
[M4] = [D2001].End(xlUp).Offset(3, 8)
[M5] = [D2001].End(xlUp).Offset(4, 8)
[M6] = [D2001].End(xlUp).Offset(5, 8)
[M7] = [D2001].End(xlUp).Offset(6, 8)
[M8] = [D2001].End(xlUp).Offset(7, 8)
[M9] = [D2001].End(xlUp).Offset(8, 8)
[M2001] = [D2001].End(xlUp).Offset(2001, 8)
Range("AG3") = [M1] + [M2] + [M3] + [M4] +.............+ [M2001]
Das sind meine ersten Versuche :-)
So ungefähr hätte ich es gerne.
Dieser Code funktioniert natürlich nicht.
Sub Summe()
[AG3].Formula "=""SUM([D2001].End(xlUp).Offset(0, 8):[L2001]"
End Sub
Danke im voraus
Ulf
Anzeige