weiter unten im Forum hat mir der Forumsteilnehmer Andreas mit einem Script geholfen, dass Formeln in einem Excelblatt sucht und wenn gefunden in einige andere Zelle kopiert. Ein Code dafür hatte ich schon, nur war der sehr langsam, der neue ist schneller. Es ist aber immer noch langsam, vermutlich, weil bei jeden Einfügen einer neuen Formel in eine Zelle, die Zelle neu berehcnet wird. Wie kann man das ausstellen für die Laufdauer des Makros?
Der Code, der in A1 bis A100 sucht und gefundene Formeln in B, C, D, E gleiche Zeile kopiert lautet:
Sub ZelleMitFormelabsolutSchneller()
Dim c As Range
Dim i As Integer
Application.ScreenUpdating = False
For Each c In Range(Cells(1, 1), Cells(100, 1))
If c.HasFormula Then
For i = 2 To 5
Cells(c.Row, i) = c.Formula
Next i
End If
Next
Application.ScreenUpdating = True
End Sub
Kann man da mit
With Application
.Calculation = xlManual
und
With Application
.Calculation = xlAutomatic
etwas machen, oder gibt es einen anderen Weg?
Dank für jeden Hinweis,
Markus