Makro das Formeln kopiert
11.06.2018 00:35:16
Christian
ich muss zuerst sagen, ich bin was VBA anbelangt absoluter Neuling, der versucht sich etwas da hineinzuarbeiten, also bitte habt Verständnis wenn ich haarsträubende Fehler gemacht haben sollte.
Jedenfalls wenn ich das ausführe, was ich bislang habe, sagt mir das Makro "Objekt erforderlich" und weiß hinten und vorne nicht mehr weiter.
Das Makro soll eigentlich nichts großartiges machen. In den Zellen G1:J1 stehen Formeln, diese sollen bis zur letzen Zeile kopiert (und berechnet) werden und im Anschluss von Zeile 2 an bis zur letzten Zeile die Werte eingefügt werden, sodass in Zeile 1 die Formeln erhalten bleiben damit das Ganze nochmal ausgeführt werden kann.
Zweck des Ganzen ist eine halbe Stunde Berechnungszeit, die ich mir sparen möchte und irgendwie wenn ich nur das automatische Formelberechnen ausschalte, dauern Dinge wie Zeilen löschen oder Zellinhalte löschen trotzdem eine Ewigkeit.
Also ist jemand bitte so nett und hilft mir, soweit bin ich bislang:
Sub berechnen()
Dim lngR As Long
Application.ScreenUpdating = False
Application.EnableEvents = False
lngR = Target.Row
Cells(lngR, 7).FormulaR1C1 = Cells(1, 7).FormulaR1C1
Cells(lngR, 8).FormulaR1C1 = Cells(1, 8).FormulaR1C1
Cells(lngR, 9).FormulaR1C1 = Cells(1, 9).FormulaR1C1
Cells(lngR, 10).FormulaR1C1 = Cells(1, 10).FormulaR1C1
Rows(lngR).Copy
Cells(lngR, 1).PasteSpecial xlPasteValues
Application.CutCopyMode = False
Target.Select
Application.EnableEvents = True
Application.ScreenUpdating = True
End Sub
Vielen Dank
Christian