Summe aus anderer Tabelle
07.06.2017 19:08:22
Lisa
ich möchte gerne die Formel im Tabllenblatt Übersicht angezeigt haben.
In Sheets(Übersicht) soll in Zelle (10,4) = Summe(Lager!F8) stehen und nicht das Ergebnis.
Ich möchte nicht = Cells(10,4).FormulaR1C1 = "=SUM(Kasse!R[-1]C[2])"
da ich die Formel in einer Schleife einbinden will.
Danke!
LG
Lisa
Sub Uebersicht_Lager()
Dim ii&, iK&
Dim wks As Worksheet
Set wks = Sheets("Lager")
With Sheets("Übersicht")
ii = 4
iK = 6
.Cells(10, ii) = WorksheetFunction.Sum(wks.Cells(8, iK)) 'liefert nur das Ergebnis
.Cells(12, ii).FormulaLocal = "=SUMME(" & wks.Cells(9, iK) & ")" 'Ergebnis =Summe(2)
End With
Set wks = Nothing
End Sub