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?
|