Thema Datum  Von Nutzer Rating
Antwort
Rot VBA EXCEL Wiederholung von Formeln
13.09.2023 15:49:04 Nouman
Solved
13.09.2023 16:44:27 Gast96865
NotSolved
06.10.2023 13:56:40 Bernd
NotSolved

Ansicht des Beitrags:
Von:
Nouman
Datum:
13.09.2023 15:49:04
Views:
255
Rating: Antwort:
 Nein
Thema:
VBA EXCEL Wiederholung von Formeln

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


Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:

 
 

  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot VBA EXCEL Wiederholung von Formeln
13.09.2023 15:49:04 Nouman
Solved
13.09.2023 16:44:27 Gast96865
NotSolved
06.10.2023 13:56:40 Bernd
NotSolved