Summenprodukt formel variabel in VBA
14.02.2007 16:29:34
lotharP
wie komme ich hier weiter?
Public
Sub MIXERY()
Dim spalt
Dim Ende
Dim anf
Dim ÜSCHRIFT
Sheets("DATEN").Range("d:aG").Find("59 NET SALES VALUE", searchorder:=xlByRows).Select
spalt = ActiveCell.Address(True, False)
spalt = Left(ActiveCell.Address(True, False), InStr(ActiveCell.Address(True, False), "$") - 1)
ÜSCHRIFT = Right(ActiveCell.Address(True, False), InStr(ActiveCell.Address(True, False), "$"))
Ende = Range(spalt & "65536").End(xlUp).Row
anf = ÜSCHRIFT
Ende = Ende - 1
dif = anf - Ende
anf = anf + 2
Range(spalt & Ende + 2).Select
ActiveCell.FormulaR1C1 = "=+SUMPRODUCT(R[-803]C:R[-2]C,R87C8:R888C8)"
End Sub
Ich möchte jetzt die Formel mit den VAriablen versorgen, meine auch alle beisammen zu haben (VARIABLEN !;-)
Habe das etwa so gemeint:
ActiveCell.FormulaR1C1 = "=+SUMPRODUCT(dif]C:R[-2]C,R & anfC8:R & endeC8)"
Das geht so aber nicht!!!
Wäre schön wenn mir jemand helfen könnte!!!
Vielen Dank im Vorraus!!!
Lothar