Hallo Forum,

dieses Makro, mit dem ich Mittelwerte (Danke PeterW) von einem Blatt in ein zweites kopiere funktioniert zwar, aber leider nicht mehr, wenn die Tabelle viele Zeilen hat. Wie wird das schneller ? Ich komme irgendwie nicht um das "select" beim Kopieren zwischen den Blättern und bei der "Average"
-Funktion herum.

Sheets(1).Select
Do
Do
Range(Cells(lgZeile, 1), Cells(lgZeile, 6)).Copy
Sheets(2).Select
Range(Cells(intZiel, 1), Cells(intZiel, 6)).Select
ActiveSheet.Paste
Sheets(1).Select
Sheets(2).Cells(intZiel, intSpalte) = WorksheetFunction.Average(Range(Cells(lgZeile - intMittelUnt, intSpalte), Cells(lgZeile + intMittelOb, intSpalte)))
intSpalte = intSpalte + 1
Loop Until IsEmpty(Cells(lgZeile, intSpalte))
intZiel = intZiel + 1
lgZeile = lgZeile + intMittel
intSpalte = 7
Loop Until IsEmpty(Cells(lgZeile, 1))


Das automatische Berechnen und Bildschirmupdate habe ich bereits ausgeschaltet.

Vielen Dank für Die Mühe,

Benjamin