title image


Smiley Re: Letzte Zelle ermittelt und dann eine Summe über diesen Bereich
Hallo Gaby!



In meinem Beispiel wird für die Werte in Spalte A eine Summe gebildet:



Sub test()

Dim zl

zl = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row

Range("A" & zl + 1) = Application.WorksheetFunction.Sum(Range("A1", "A" & zl))

End Sub


Gruß aus Köln! Marc

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: