ich kopiere per Makro Formeln aus der 3. Zeile in eine weiter unten liegenden Zeile.
Das Makro löst aus, wenn ich auf eine Zelle in der Spalte A gehe
Mittlerweile ist die 3.000-ste Zeile befüllt und das Makro wird "sau-langsam"
Es dauert ca 1/2 Sekunden um nur EINE Formel zu kopieren.
Was kann ich machen, dass die Ausführung beschleunigt wird ?
Würd mich sehr über einen Tip freuen:)
Besten Gruss Stefan
hier das Makro:
Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
'formeln einfügen bei neuen werten in spalte a
Dim formel(1 To 8)
formel(1) = "i3"
formel(2) = "j3"
formel(3) = "k3"
formel(4) = "l3"
formel(5) = "h3"
formel(6) = "e3"
formel(7) = "n3"
formel(8) = "o3"
If Not Application.Intersect(Target, Range("a4:a50000")) Is Nothing Then
Application.EnableEvents = False
For x = 1 To 8
Set dest = Cells(Target.Row, Range(formel(x)).Column)
'MsgBox dest.Address
Range(formel(x)).Copy Destination:=dest
dest.Value = dest.Value
Next
Application.EnableEvents = True
End If
End Sub