Office: (Office 2010) VBA . Summe von ausgewählter Zelle bis nächster freier Zelle rechnen

Hallo Zusammen,

Folgender Code färbt mir aktuell die Zellen rot ein, in die ich gerne jeweils eine Summenformel schreiben würde

Code:

Die Summe soll jeweils von einer Zeile darüber bis zur (nicht inklusive) der nächsten freien Zelle in Spalte I gerechnet werden. Ich scheitere an der Selektion der nächsten freien Zelle in der Spalte.

Vielen Dank,

Buddhi

:)

 

Moin

Du meinst aber die freie nach oben?
Brauchst du wirklich die Formel in der Zelle, oder reicht das Ergebniss?
Code:

gruss hary

 

gruss hary

Hallo Hari,

Vielen Dank, Du hast das genau richtig interpretiert. Es funktioniert genau wie vorgesehen! Die Formel brauchte ich nicht, nur das Ergebnis.

Allerdings habe ich eine weitere Problematik entdeckt: Leider habe ich Fälle, in denen nur eine Zahl aufzusummieren wäre. Ich habe den Code folgendermaßen ergänzt, um diesen Fall abzufangen.

Code:

Das funktioniert auch wunderbar für jede leere Zelle in meiner Tabelle. In jedeer Tabelle steht entweder die korrekte Summe der Zeilen darüber oder der Wert aus genau einer Zeile darüber.

Zum Abschluss bekomme ich nun aber einen Fehler 400 und EndSub bzw. Sprung zum nächsten Makro findet nicht statt. Ich verstehe nicht warum.

VG,

Buddhi

 

Moin
Schaetz der Fehler kommt dadurch, dass wenn EndRow = 1
ergibt dann bei:
Range("I" & EndRow - 1) ---> 1-1 ---> 0
und
Range("I" & EndRow - 1) heisst dann Range("I" & Null)
Es gibt keine Zeile Null daher Fehler.
Versuch das zu umschiffen aendere mal die Eins in eine Zwei:

.....xlUp).Row To 2 Step -1
gruss hary

 

Hallo Hari,

Vielen Dank, das hat geklappt! Verstehe zwar nicht ganz wieso das hier ein Problem ist, weil ich an anderer Stelle mit gleichem Step auch bis 1 gegangen bin, aber egal.

Ich habe leider weitere Probleme mit meinem Programm. Die Tabelle, die sich nach Ausführung dieses Codes ergibt, sollte in einem späteren Teil in Einzelblätter aufgerissen werden. Da ich zwischen den oben berechneten Summen jeweils gruppiert habe (die Details sollten standardmäßig ausblendet sein), habe ich aber beim verteilen auf neue Arbeitsblätter Probleme bekommen. Ok, dachte ich mir, dann rechne ich die Summen und mache die Gruppierung jeweils später, nachdem die Daten bereits auf Ihrem neuen Arbeitsblatt sind.

Dabei herausgekommen ist bis jetzt folgender Code als Teil eines größeren Subs:

Code:

Hiermit habe ich jetzt 2 Probleme, beide in der If-Bedingung. ElseIf funktioniert:

1) Wenn ich den Code so ausführe, wie er dort steht, wird mir die Summe der entsprechenden Zellen von Tabelle1 berechnet (hier dann 0). Aber jede Kombination von Activesheet führt zu einem Fehler 400. Ich habe es vor Range versucht, vor den Cells, sowie jeder Kombination aus beiden. Wo liegt das Problem?

2) Mit StartingRow 2 wollte ich die Zeile ermitteln, bis zu der gruppiert werden soll. Wenn ich die Zeile EndRow2 auswähle und Strg + Pfeil nach oben drücke komme ich auch dort hin, aber als Wert wird mir bei meinem Ausdruck immer 0 angezeigt.

VG,

Buddhi

 

Hallo,

Ich hänge hier auch noch mal die Datei an, falls sich das wer mal angucken will. Der im vorigen Beitrag gepostete Code ist mit

'========

Code

'========

gekennzeichnet.

VG

Buddhi