Guten Abend,
also ich beantworte die Fragen der Reihe nach
1. Als Ereignisprozedur aus dem Grund, dass das ich nicht jedes Mal das Makro starten muss um die Summe erneut zu ermitteln. Wenn dies über eine Sub besser zu lösen wäre, bzw. "ressourcenschonenender" habe ich überhaupt gar nichts dagegen :=)
2. Was soll addiert werden:
Jede vierte Zeile aus Spalte E. Jede vierte Zeile aus Spalte F, jede vierte Zeile aus Spalte G. Es soll jede vierte Zeile bis zum letzten Eintrag in der Spalte erfolgen.
In Zahlen: Spalte 5 (=Spalte E), Reihe 5 -> Dies ist mein Startpunkt, also der Beginn der Addition
Summe = Spalte 5,Reihe 5 + Spalte 5, Reihe 10 + Spalte 5,Reihe 14 + Spalte 5,Reihe 18 + Spalte 5,letztegefüllteReihe in Spalte E
3. Also ich möchte nur einmal die Spalte (siehe Antwort 2) addieren. Wenn die Spalte fertig addiert wurde möchte ich die nächste Spalte addieren. Also
Summe = Spalte 6,Reihe 5 + Spalte 6, Reihe 10 + Spalte 6,Reihe 14 + Spalte 6,Reihe 18 + Spalte 6,letztegefüllteReihe in Spalte F
Der Vorgang aus Antwort Nummer 2 und Nummer 3 soll solange gemacht werden, bis zum Ende -1 der letzten Spalte.
In meiner Tabelle ist das Spaltenende bei "AG". Die letzte Spalte habe ich innerhalb meiner Tabelle mit
letztespalte = Cells(3, Columns.Count).End(xlToLeft).Column-1 definiert
4. Der Startpunkt ist IMMER Spalte E in Reihe 5, ausnahmslos immer. Von diesem Punkt an soll die komplette Spalte (siehe Antwort 2) im "Viererrhytmus" addiert werden. Am Startpunkt selbst ändert sich nie etwas. Das Ende ist aufgrund "dynamischer Reihen- und Spaltenlängen" nicht immer so klar.
Ich bin für sämtliche Lösungen offen die mich dem Ziel näher bringen - wenn du dir die Mühe machst, ich schau auf jeden Fall heute hier noch rein!
|