Office: (Office 2016) Alle Spalten rechts von der aktuellen Zelle addieren

Hi Bastler,

Da du meine "dezenten Hinweise" auf Unzulänglichkeiten in deinem Code nicht kapieren willst, du aber schreibst dass du lernen willst, löse ich mal das Rätsel mal auf (und zeige noch andere Unstimmigkeiten - auch wenn wir erst gestern darüber eine Debatte hatten).

1. Deine Routine scheitert an der Aufgabe ALLE Spalten zusammenzuzählen, sobald mehr als 256 benutzt werden (also sobald Spalte IV erreicht wird.
2. Wenn Spalte IV belegt ist, dann wird alles links davon ignoriert, bis die erste Lücke kommt. Die Summe wird dann von B bis zur 1. Spalte nach dieser Lücke genommen. Falls alle Spalten (bis auf A, die du löschst) belegt sind, ist das halt Spalte B
Zur Ermittlung der letzten Spalte wäre folgendes korrekt:

Code:

If (Cells(i, Columns.Count) = "" Then
    c = Cells(I, Columns.Count).End(xlToLeft).Column
Else
    c = Columns.Count
End If

3. Durch Definieren deiner Zähler als Integer fällt deine Routine ab Zeile 32768 auf die Nase. Sprich es kommt der Debugger. Was einen im Gegensatz zu 1. und 2. ja wenigstens sofort auffällt.
4. Kommt etwas anderes als eine leere Zelle oder eine Zahl vor, fällt die Routine ebenfalls hin (Debugger!)
5. Jede Zelle jeweils getrennt auf Spalte A aufzusummieren löst mit jeder Addition eine Neuberechnung aus. Wieso summierst du nicht in einer Variablen und schreibst das Ergebnis erst dann in A, wenn die Summe fertig ist?
6. Wieso immer alle Zeilen durchgehen, selbst wenn sich nichts geändert hat?

Ich habe dir gestern schon gesagt: wenn du schon solche Nachlässigkeit begehst, solltest du darauf hinweisen. Insbesondere hätte ich spätestens nach meinem Beitrag #24 erwartet, dass du das mit der beschränkten Spaltenzahl merkst und korrigierst.

Also wenn schon eine einfache SUMME() ersetzt werden soll, dann bitte richtig. Aber wie Ralf schon schrieb ist das gesamte Vorhaben Unfug - zumindest bei allen Funktionen, die problemlos mit ganzen Zeilen/Spalten umgehen können. Würde also eher bei SUMMENPRODUKT oder ähnlichem Sinn machen.

Code:

Private Sub Worksheet_Change(ByVal Target As Range)
Dim Bereich As Range
Dim Zelle As Range
Set Bereich = Range(Columns(2), Columns(Columns.Count)) 'alles bis auf Spalte A
Set Bereich = Intersect(Bereich, Target)
If Not Bereich Is Nothing Then
    For Each Zelle In Bereich
        Cells(Zelle.Row, "A") = WorksheetFunction.Sum(Range(Cells(Zelle.Row, "B"), Cells(Zelle.Row, Columns.Count).End(xlToLeft)))
    Next Zelle
End If
End Sub

Hier gilt übrigens als Einschränkung, dass die allerletzte Spalte (XFD) nicht benutzt werden darf. Könnte man noch einbauen, ähnlich wie oben gezeigt, aber das schenke ich mir.
Ebenso gilt: Falls mehrere Zellen in einer Zeile gleichzeitig geändert werden, wird die Schleife öfters durchlaufen (und die Summe berechnet) als nötig wäre.

 

Moin,
ich habe hier eine der Aufgabenstellung entsprechende funktionierende Lösung vorgestellt, auf meiner Seite eine überarbeitete, die über 256 Spalten hinaus rechnet. Dafür nehme ich mir gerne die Zeit, um Fragestellern zu helfen. Ich nehme nicht für mich in Anspruch immer die besten Lösung zu liefern, werde meine Zeit aber auch nicht Trecker-Trollen verschwenden.

@Raf & Helmut: Eure Glaubenskriege dürft Ihr gerne ohne mich führen.
Grüße

 

@d'r Bastler so viel zum Thema