Hallo,
ich habe ein Makro, den ich gerne für alle Arbeitsblätter einer Exceltabelle durchführen würde.
Gibt es eine Möglichkeit, eine Schleife zu schreiben, die die Arbeitsblätter der Reihe nach durchgeht und jeweils das Makro anwendet?
Die Namen meiner Arbeitsblätter sind Jahreszahlen und beginnen bei 1998 und enden bei 2018.
Falls es weiterhilft, hier ist mein Makro (soll jeweils einen Mittelwert berechnen):
Columns("E:M").Select
Selection.NumberFormat = "0.00"
Columns("E:E").Select
Selection.Insert Shift:=xlToRight
Range("E6").Select
ActiveCell.FormulaR1C1 = "=AVERAGE(RC[1]:RC[9])"
Range("E6").Select
Selection.AutoFill Destination:=Range("E6:E370")
Range("E6:E370").Select
ActiveWindow.SmallScroll Down:=-42
Range("A1").Select
Bin dankbar für jede Hilfe
Gruß
|