AW: Variable in VBA ermitteln und als Wert übergeben
01.03.2019 13:34:53
AnBad
Hallo Werner,
vielen Dank. Habe die Formel für meinen Bedarf jetzt angepasst:
(Das Anpassen kann man bestimmt noch professioneller machen, aber mir tut es das erstmal)
Option Explicit
Public Sub SummenSpalten()
Dim LastRow As Long
With Worksheets("Kalkulation")
LastRow = .Cells(.Rows.Count, 5).End(xlUp).Row
'.Cells(33, 7) = WorksheetFunction.Sum(.Range(.Cells(19, 7), .Cells(loLetzte, 7)))
.Cells(LastRow, 7).Offset(3).Clear
.Cells(LastRow, 6).Offset(3).Clear
.Cells(LastRow, 6).Offset(3) = "Gesamt, Netto:"
.Cells(LastRow, 7).Offset(3) = WorksheetFunction.Sum(.Range(.Cells(19, 7), .Cells(LastRow, _
7)))
.Cells(LastRow, 7).Offset(3).NumberFormat = "#,##0.00 "
End With
End Sub