Wert in Spalte an Tabellenende eintragen
28.05.2015 10:51:17
Michael
mit folgendem Code errechne ich mir die Summe aller positiven Werte in der 13ten Spalte:
Sub SummeWert()
Dim lngLast As Long
lngLast = Cells(Rows.Count, 13).End(xlUp).Row
Cells(lngLast + 2, 13).Formula = Application.WorksheetFunction.SumIf(Range("M3:M1000"), ">0", _
Range("M3:M1000"))
End Sub
Jemand einen Tipp?
Gruß
Michael
https://www.herber.de/bbs/user/97909.xls