|
Hallo zusammen,
Ich arbeite an mehreren Bereichen in den Spalten Q bis U.
1- 23:33
2- 35:36
3- 39:40
4- 42:53
5- 57:68
6- 71:74
Und ich möchte, dass die Summe jeder Spalte durch die Anzahl der Zeilen geteilt wird und diese Werte in den Spalten AJ, AK, AL, AM bzw. AN gespeichert werden.
Mit diesem Code kann ich das zwar machen, aber er ist zu redundant. Für sechs Bereiche muss ich 24 Zeilen Code schreiben. Gibt es eine einfachere Möglichkeit, dies zu tun?
Ich danke Ihnen vielmals
Code:
' Calculate and store values in cells AJ24, AK24, AL24, AM24, and AN24 for the new range (Q36:Q36, R36:R36, S36:S36, T36:T36, U36:U36)
ws.Range("AJ24").Value = Application.WorksheetFunction.Sum(ws.Range("Q36:Q36")) / Application.WorksheetFunction.Count(ws.Range("Q36:Q36")) / 100
ws.Range("AK24").Value = Application.WorksheetFunction.Sum(ws.Range("R36:R36")) / Application.WorksheetFunction.Count(ws.Range("R36:R36")) / 100
ws.Range("AL24").Value = Application.WorksheetFunction.Sum(ws.Range("S36:S36")) / Application.WorksheetFunction.Count(ws.Range("S36:S36")) / 100
ws.Range("AM24").Value = Application.WorksheetFunction.Sum(ws.Range("T36:T36")) / Application.WorksheetFunction.Count(ws.Range("T36:T36")) / 100
ws.Range("AN24").Value = Application.WorksheetFunction.Sum(ws.Range("U36:U36")) / Application.WorksheetFunction.Count(ws.Range("U36:U36")) / 100
|