VBA - Summenfunktion bei variabler Zeilenanzahl
Hallo zusammen,
ich habe wieder eine kleine Frage bzgl. VBA. Ich habe hier Tabellen vorliegen, die eine unterschiedliche Anzahl an Zeilen besitzen. Nun möchte ich aber in jeder Spalte unter der letzten Zeile die Werte aller darüberliegenden Zeilen summieren lassen.
Ich habe bereits ein Makro, das die Zeilen zählen kann. Doch leider komme ich damit nicht voran, da ich am Ende nicht nur die Ergebnissumme in der Zelle stehen haben möchte, sondern auch die Funktion.
Es kann nämlich sein, dass nachträglich noch Werte geändert werden müssen.
Mein momentaner Code sieht so aus:
Allerdings habe ich hier als zu summierenden Bereich einen festen Wert. Dieser muss aber variabel sein, da ja die Zeilenanzahl nicht immer gleich ist.
Falls noch fragen sind, einfach hier posten!
Vielen Dank im voraus!
Sebastian Schäfer
PS.: Sorry für die "\"...ich habe keine Ahnung, wie ich die weg bekommen kann. Ich hoffe, das stört nicht allzu sehr
ich habe wieder eine kleine Frage bzgl. VBA. Ich habe hier Tabellen vorliegen, die eine unterschiedliche Anzahl an Zeilen besitzen. Nun möchte ich aber in jeder Spalte unter der letzten Zeile die Werte aller darüberliegenden Zeilen summieren lassen.
Ich habe bereits ein Makro, das die Zeilen zählen kann. Doch leider komme ich damit nicht voran, da ich am Ende nicht nur die Ergebnissumme in der Zelle stehen haben möchte, sondern auch die Funktion.
Es kann nämlich sein, dass nachträglich noch Werte geändert werden müssen.
Mein momentaner Code sieht so aus:
'Zeilen zählen Dim zeilen As Integer Range("I1").Select zeilen = Selection.CurrentRegion.Rows.Count 'Summenfunktion einbauen Cells(zeilen + 1, 9).Select ActiveCell.FormulaR1C1 = "=SUM(R[-27]C:R[-1]C)"
Allerdings habe ich hier als zu summierenden Bereich einen festen Wert. Dieser muss aber variabel sein, da ja die Zeilenanzahl nicht immer gleich ist.
Falls noch fragen sind, einfach hier posten!
Vielen Dank im voraus!
Sebastian Schäfer
PS.: Sorry für die "\"...ich habe keine Ahnung, wie ich die weg bekommen kann. Ich hoffe, das stört nicht allzu sehr
Please also mark the comments that contributed to the solution of the article
Content-Key: 38889
Url: https://administrator.de/contentid/38889
Printed on: April 25, 2024 at 11:04 o'clock
2 Comments
Latest comment
Hi,
versuchs mal so:
Psycho
versuchs mal so:
Dim zeilen As Integer
zeilen = Range("I65536").End(xlUp).Row
Range("I65536").End(xlUp).Offset(1, 0).Select
ActiveCell.Value = "=SUM(I1:I" + CStr(zeilen) + ")"
Psycho