Diverse Zahlen in einer Spalte summieren mit VBA

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo, Josef,
m.E. hat Erich Dir bereits einen einfach zu überschauenden Weg unter Verwendung einer zusätzlichen Ergebnisszeile gezeigt, die natürlch beliebig gelegt werden kann. Weitere Formen wären denkbar, wenn man eine Kopie der Tabelle fertigen würde und in ihr die Zeile 8 als Summe der Zeilen 8, 12, 16 und 21 der Originaltabelle darstellt, in deren Zeile 8 der Initialwert in die Zeile 8 eingetragen werden soll.
Mit VBA wird allerdings Dein Vorhaben zu reallisieren sein, und ich stelle mir das so vor:
Option Explicit Const REFROW = 8 Private Sub Worksheet_SelectionChange(ByVal Target As Range) Static EntryValue, ExitValue Static prevCellAddr As String Dim currCellAddr As String Dim prevCell As Range Dim sum As Double 'ermittel aktuell angesprungene Zelle currCellAddr = Target.Address 'wenn der Sprung aus einer zuvor aktivierten Zelle erfolgte, 'dann prüfe, ob die Adresse in der Liste der zu berücksichtigenden Zellen ist 'Sonderfall bei deiner Aufgabe: es gilt immer die Spalte 3+n und die Zeile 8 If Len(prevCellAddr) > 0 Then Set prevCell = Range(prevCellAddr) ExitValue = prevCell.Value If prevCell.Row = REFROW Then 'der Sprung erfolgte aus der Zeile 8 (=REFROW) in die aktuelle Zelle If 3 * Int(prevCell.Column / 3) = prevCell.Column Then 'der Sprung erfolgte aus der Spalt 3=C, 6=F, 9=I 'daher Summenbildung, wenn der Wert in der Zelle verändert wurde! If EntryValue <> ExitValue Then ' Summenbildung in der prevCellSpalte, ' einschließlich dem Wert der Zeile 8 ' und schreibe das Ergebnis in prevCell sum = Cells(REFROW, prevCell.Column).Value + _ Cells(12, prevCell.Column) + _ Cells(16, prevCell.Column) + _ Cells(21, prevCell.Column) prevCell = sum EntryValue = sum ExitValue = sum End If End If End If 'Das Range-Objekt prevCell wird entsorgt: Set prevCell = Nothing End If prevCellAddr = currCellAddr End Sub
Diese Prozedur ist in den Projektunterordner für die betreffende Tabelle zu kopieren.
Den Datentyp für die Variable Sum kannst du gf. entsprechend anpassen. Ich hoffe es funktioniert als Rohbau soweit, dass nur noch Ausbauarbeiten zu erledigen sind, denn umfassend habe ich es nicht geprüft. Insbesondere der Dreissprung in den Spalten ist von mir nicht geprüft und auch der Aushang aus der Prozedur, soblad ein Bereich selegtiert wird ist noch nicht enthalten. Doch diese Arbeiten können erledigt werdeen, wenn das Gerüst im Wesentlichen das Leistet, was die Aufgabenlösung erfordert.
Gruß,
Uwe

Hallo, Josef,
soweit ich Deine Beispieltabelle übersehen kann und wenn keine weiteren, darunter angeordneten Tabellenblöcke hinzukommen (Wiederholung der Zeilenstruktur 1 bis 15 in darunteliegende Zeilen), dann sollte das gezeigte Grundgerüst leicht auch für die Baguetts erweiterbar sein, denn die Besonderheit ist eigentlich nur, wie man die Selektion von Zellen beobachtet, da insbesondere das Anwählen der Eingabe/Summenzellen besondere Entscheidungsstrukturen benötigt, die vom Zelleninhalt vor der Anwahl und nach dem Verlassen abhängt, also ob nur ein Überfahren der Zelle erfogte oder eine manuelle Änderung des Zelleninhalts erfolgte.
Das dabei nun die Zellen der Spalte B und danach jede dritte Spalte statt wie bisher die Spalte C und daran anschließend jede dritte Spalte als potenzielle Referenzspalte zu betrachten ist, erfordert eine Veränderung der Kriterienabfrage für den IF-Block. Hier ist nun zu untersuchen, ob der Rest der Divsion der Spaltezahl durch 3 gerade 2 ist.
Jedoch stimme ich erneut Erich zu, dass Du prüfen solltest, ob Du nicht doch mit Zusatzzeilen Arbeiten solltest, da Du nur so weiterhin Herr der Vorgänge in Deinen Tabellen sein wirst. So wird kein VBA notwendig, denn die oben von mir beschriebenen Veränderungen in VBA werden wohl nicht über Makrorecorderaufzeichnungen vorzufertigen sein, und eine weitere Ausarbeitung meines Grundgerüstes durch mich, würde m.E. die Idee der Hilfestellung nicht mehr wirklich gerecht wird, da damit dann eine Anwendung entwickelt würde, für die die professionele Anbieter zuständig sein würden. Ich zähle mit dieser Sicht auf Dein Verständnis und bleibe dennoch für weitere Fragen, die Dir bei eigener Entwicklung helfen könnten, offen.
Gruß,
Uwe

Beliebteste Forumthreads (12 Monate)

Diverse Zahlen in einer Spalte summieren mit VBA

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

317 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Diverse Zahlen in einer Spalte summieren mit VBA

8 Beiträge zum Forumthread Beiträge zu diesem Forumthread

317 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread