Hallo zusammen! 

Ich bin gerade dabei eine Datei auf zubauen und stehe vor der Aufgabe das ich eine bestimmte Formel gerne in jede Zelle einer Spalte kopieren würde (Zeilennummer soll hierbei berücksichtigt werden). 

Da dies nur ein kleiner Teil eines makros ist, möchte ich die Formel nicht "händisch" per "runter ziehen" ein kopieren. 

Ich habe nach einigem Buchwelzen und Googlen folgenden Code: 

Sub DurationofMeasure() 

Dim Zelle As Range 
Dim Nr As Long 
For Each Zelle In Sheets.Worksheets("AnalysisInput").Columns("J:J") 
Nr = Zelle.Row 
Zelle.FormulaLocal ="(="B" & "Nr & "-"C" & "Nr & ")" 
Next Zelle 
End Sub 

Es gibt zwar keine Fehler, aber leider macht er auch nicht was er soll... 

Hat jemand von euch eine Idee?