Excel VBA Problem mit SUMME

Hi

ich sitze hier gerade und denke nach.. leider kommt nix bei raus.

Folgende Situation: ich benötige ein Programm, dass von einem bekannten Startpunkt aus die Zeilen/Spalten durchgeht (Immer Spalte C) und nach einem Bestimmten Wort sucht. Hab ich gelöst
Danach soll unter dieser besagten Zeile eine weitere eingefügt werden. Hab ich gelöst.
Danach sollen alle neuen Werte dieser Zeile fett werden - ist ja nicht sonderlich schwer.
Mein Problem: In 3 dieser Felder muss eine Summenformel a la SUMME(E6:E23) Das E6 steht fest, die E23 nicht, ist variabel wo es aufhört. Die Formel für das Einfügen einer Summe lautet meiner Meinung

ActiveCell.FormulaR1C1 = "=SUM(R[-18]C:R[-1]C)"

Wie kriege ich dieses R[-18] variabel? Sprich, dass er die jeweilige Differenz einsetzt?
Oder bin ich gar völlig auf dem falschen Dampfer?

Gruß
André

 

Hi
Geht mir genauso.
Anscheinend mag fomular1c1 keine relativen Bezüge.

Sub test()
zz = -13
zs = ActiveCell.Row + zz
ze = ActiveCell.Row - 1
Txt = "=SUM(R" & Trim(Str(zs)) & "C:R" & Trim(Str(ze)) & "C)"
ActiveCell.FormulaR1C1 = Txt
End Sub

Hiermit wird der relative Bezug in absolute Adressierung umgewandelt

Das Zuweisen der Variablen kann entfallen - diente dem Debuggen

Die ursprüngliche Lösung sollte nur die Zahl in einen String vewandeln - allerdings muß man noch nit Trim() eventuelle Leerzeichen entfernen

HTH
Geert

 

hi

danke für die Antwort, da kommt bei mir ein Objekt- oder Anwendungsorienterter Fehler, was fürn Typ soll zz denn sein? Bei mir isses Integer

 

Hi

zz=errechnete Differenz
ActiveCell.FormulaR1C1 = "=SUM(R[" & STR(zz) & "]C:R[-1]C)"

HTH
Geert