|
Hallo,
ich habe bisher in VBA / Excel mit Formeln ändern in Makros noch nichts gemacht - aber nach kurzem Ausprobieren ging es. Und die Formel, die ich in die Zellen geschrieben habe, habe ich auf funktionsfähigkeit überprüft, in dem ich in die Zellen, auf die sich in der Formel bezogen wird, mit Werten gefüllt habe. Die Formel tat das was sie soll !!
Du kannst den Code (unten) verwenden.
Wegen der Befehlsschaltfläche:
Wenn du den Code an das Blatt geheftet hast auf dem die Formeln sind, dann gehe (in Excel) auf "Ansicht" ---> "Symbolleisten" ---> "Formular".
Dort wählst du "Befehlsschaltfläche" und fügst sie aufs Blatt ein. Dann rechts draufkklicken: "Makro zuweisen" wählen. Dann das Makro auswählen in dem der Code (unten) ist.
Sub Makro1()
Dim i As Integer, ZdZmeF As Integer, ZdZmlF As Integer, SdZmF As Integer
'ZdZmeF = Zeilennummer der Zelle, die die erste Formel enthält
'ZdZmlF = Zeilennummer der Zelle, die die letzte Formel enthält
'SdZmF = Spaltennummer der Spalte in der die Formeln sind
ZdZmeF = 3
ZdZmlF = 1803
SdZmF = 2
ActiveSheet.Range(Cells(ZdZmeF, SdZmF), Cells(ZdZmlF, SdZmF)).ClearContents
For i = ZdZmeF To ZdZmlF
ActiveSheet.Cells(i, SdZmF).Formula = "=-f7+2*g7-h7"
Next i
MsgBox ("alles geändert !")
End Sub
Bitte gib eine Rückmeldung, ob es klappt.
Viele Grüße,
Jörg
|