ich habe da ein kleines Problem mit der Geschwindigkeit eines Makros, das aus ca. 80 Blättern die enthaltenen Daten ausliest (Zeilen 7-72) und in das Blatt "Statistik" einträgt . Das Umschalten zu Beginn des Makros auf Application.Calculation = xlCalculationManual hat leider keinen Fortschritt gebracht. Es gibt bestimmt eine schnellere Kopiermethode, ich weiss leider nicht welche. Kann mir jemand helfen?
Der von mir verwendete Code liegt bei.
Vielen Dank
Wieland
Sheets(Blattname).Activate 'Quellblatt
Sheets(Blattname).Range(Cells(s, 5), Cells(s, 16)).Select
Selection.Copy
Range("C2").Select
Sheets("Statistik").Activate 'Zielblatt
Range(Cells(iRow, 3), Cells(iRow, 3)).Select
iRow = Selection.Row
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False