Formel in eine Zelle per VBA
Bernd
Hallo liebe Excelisten,
ich möchte per VBA eine Formel in eine Zelle schreiben.
In der Formel sollen die Bereiche C [Column] variabel sein.
Sobald ich aber die Variable Test verändere und für R6 und R8 eine Variable einsetz kommt
eine Fehlermedung: "Laufzeitfehler 1004, Anwendungs oder Objektdefinierter Fehler"
Sub FreiePlaetze_berechnen()
Dim durchlauf As Integer
Worksheets("Gesamtübersicht").Select
durchlauf = 5
Do While Cells(durchlauf, 1) ""
durchlauf = durchlauf + 1
trainings_id = Cells(durchlauf, 2)
Do While Cells(durchlauf, 2) = trainings_id
durchlauf = durchlauf + 1
'Festwert funktioniert
test = ActiveCell.FormulaR1C1 = "=RC[4]-(COUNTA(R6C16:R8C16))"
'Variabel bringt Fehler
'test = ActiveCell.FormulaR1C1 = "=RC[4]-(COUNTA(R6C" & durchlauf & ":R8C" & durchlauf & _
"))"
Cells(durchlauf, 5).FormulaR1C1 = test
Loop
Loop
End Sub
Viele Grüße
Bernd
Anzeige