Berechnen (Min) bei variabler Zeilenzahl
18.08.2016 15:05:43
gjunge
vielleicht kann mir hier wieder jemand helfen :)
Wie kann ich in meinem Makro die variable Zeilenanzahl berücksichtigen?
Sub berechne()
Range("D8").Select
ActiveCell.FormulaR1C1 = "=COUNT(R[5]C:R[209]C)"
Selection.AutoFill Destination:=Range("D8:R8"), Type:=xlFillDefault
Range("D8:R8").Select
Range("D7").Select
ActiveCell.FormulaR1C1 = "=AVERAGE(R[6]C:R[210]C)"
Selection.AutoFill Destination:=Range("D7:R7"), Type:=xlFillDefault
Range("D7:R7").Select
Range("D6").Select
ActiveCell.FormulaR1C1 = "=MAX(R[7]C:R[211]C)"
Selection.AutoFill Destination:=Range("D6:R6"), Type:=xlFillDefault
Range("D6:R6").Select
Range("D5").Select
ActiveCell.FormulaR1C1 = "=MIN(R[8]C:R[204]C)"
Selection.AutoFill Destination:=Range("D5:R5"), Type:=xlFillDefault
Range("D5:R5").Select
Range("E5:G8").Select
Selection.ClearContents
End Sub
Im Bsp. sind 205 Zeilen zu berechnen. Die kann aber variieren also mehr oder weniger Zeilen werden.
https://www.herber.de/bbs/user/107691.xlsx
Außerdem sollen die berechneten Werte dann im Tabellenkopf erscheinen.
Für jede Hilfe bin ich dankbar :)
Viele Grüße