ich bin dabei ein Makro zu schreiben, welches die Werte aus einer Zeile meiner Tabelle automatisch in eine Kalkulation in einem anderen Tabellenblatt eingibt.
Die damit berechneten Ergebnisse sollen anschließend in einer neuen Tabelle ausgegeben werden.
Das von mir geschriebene Makro funktioniert zwar, benötigt aber ewig.
Hat jemand eine Idee, wie das schneller geht?
Hier mein Makro:
Private Sub Calculate()
Dim x As Integer
Sheets("Input").Select
finalrow = Cells(Rows.Count, 2).End(xlUp).Row
Sheets("Output").Range("A5:F50000").Delete
For x = 6 To finalrow
Application.ScreenUpdating = False
Sheets("Input").Cells(x, 2).Copy
Sheets("Basic-LBO").Range("I1").PasteSpecial xlPasteValues
Sheets("Input").Cells(x, 3).Copy
Sheets("Basic-LBO").Range("J1").PasteSpecial xlPasteValues
Sheets("Input").Cells(x, 4).Copy
Sheets("Basic-LBO").Range("K1").PasteSpecial xlPasteValues
Sheets("Output").Range("A3:F3").Copy
Sheets("Output").Cells(x - 1, 1).PasteSpecial xlPasteValues
Sheets("Output").Cells(x - 1, 1).PasteSpecial xlPasteFormats
Next x
Application.ScreenUpdating = True
End Sub
Viele Grüße und schonmal Danke
Danièle