Parameter in Formel einbauen

Hallo Excel Welt,
gleich vorab: ich weis nicht, wo ich das Thema recherchieren soll. Ist sicher schon x-mal gefragt, aber ich krieg es nicht raus.
Also eigentlich ganz einfach. Ich schreibe per Makro eine Summenformel in eine Zelle und will jetzt den Bereich der Formel mittels eines vorher definierten Parameters bestimmten.
Das hab ich mal so versucht: (... und "select" ist auch noch drin => SCHÄM!)
statt:

Sub Makro11()
Dim ZEILE As Integer
ZEILE = Range("CE5").End(xlDown).Row
Range("J1").Select
    ActiveCell.FormulaR1C1 = "=SUBTOTAL(9,R[4]C:R[14999]C)"
End Sub

hab ich:
ActiveCell.FormulaR1C1 = "=SUBTOTAL(9,R[4]C:R["&ZEILE&"]C)"
gemacht. Da mault VBA aber.
Wie geht das? Und das Select kann ich doch sicher auch vermeiden, oder?
Danke und Gruß Georg

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Option Explicit Sub Makro11() ' Dim ZEILE As Integer ' ZEILE = IIf(IsEmpty(Cells(Rows.Count, 83)), Cells(Rows.Count, 83).End(xlUp).Row, Rows. _ Count) Range("J1").FormulaR1C1 = "=SUBTOTAL(9,R[4]C:R[14999]C)" End Sub

Hi
das Verkettungssymbol "&" muss immer mit einem Leerzeichen vom Restlichen Code abgetrennt werden.
das liegt daran, dass VBA das "&"-Zeichen noch für andere Zwecke verwendet (bspw um im Code eine Hex-Zahl verwenden zu können) und über die Leerzeichen diese verschiedenen Verwendungszwecke unterschieden werden können.
ist zwar kein Fehler, aber da du die absolute Zeilennummer der letzen genutzen Zeile ermittelst, _ solltest du auch die Zeilennummer auch absolut in die Formel einbringen, sonst verschiebt sich das ganze nochmal nach unten.


Sub Makro11()
Dim ZEILE As Long
ZEILE = Range("CE5").End(xlDown).Row
Range("J1").FormulaR1C1 = "=SUBTOTAL(9,R[4]C:R" & Zeile & "C)"
End Sub

da ich solche Zerissenen Formeln im Code nicht mag, bringe ich die Paramter per Replace in die Formel ein. Das ist besonder dann vorteilhaft, wenn ein Parameter mehrfach in der Formel vorkommt:

Sub Makro11()
Dim ZEILE As Long
Dim Formel as String
ZEILE = Range("CE5").End(xlDown).Row
Formel =  "=SUBTOTAL(9,R[4]C:RxxxC)"
Formel = Replace(Formel, "xxx", Zeile)
Range("J1").FormulaR1C1 = Formel
End Sub

Gruss Daniel

Beliebteste Forumthreads (12 Monate)

13
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

318 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Parameter in Formel einbauen

13 Beiträge zum Forumthread Beiträge zu diesem Forumthread

318 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

13
Beiträge zum Forumthread

Beiträge zu diesem Forumthread