Summenbildung - VBA

[Luffy]

Hallo Excel Profis,

Habe eine Aufgabenstellung die ich (meiner Meinung nach) nur mit VBA lösen kann, und da ich mit VBA noch nicht sehr vertraut bin hoffe ich dass mir jemand von euch helfen kann.

Problem: Summenbildung

Meine Tabelle ist sehr simpel aufgebaut, der relevante Teil ist in Spalte H, und da stehen einfach Zahlenblöcke wie:

3
4
5

6


7
8
9

Das sind Preise von Artikeln und zwischen den Blöcken können 1-10 Leerzeichen sein. Nun bräuchte ich ein Makro (Oder auch eine Formel falls das gehen sollte) Die mir die Summe von den jeweiligen Blöcken automatisch zusammenzieht in Spalte I

Soll wie folgt Aussehen:
   12
3
4
5
   6
6

   24
7
8
9

Wie man sich denken kann ist die Original Datei ewig lang (4.000 Zeilen +) und wenn man das händisch machen muss ist man einfach den halben Tag nur dran Summen zu ziehen.

Über Hilfe und Tipps wäre ich sehr froh! 

Vielen dank im Vorraus für die Bemühungen!

[Fennek]

Hallo,

mit dem Ansatz "Areas" sollte das sehr gut gehen.

ungeprüft und eher als Anregung zu verstehen:

Code:

Sub Beispiel()
dim ar as range

for each ar in columns("H").specialcells(2,1).areas
    ar.cells(1).offset(-1, 1) = worksheetfunction.sum(ar)
next ar
end sub

[BoskoBiati]

Hallo,

eigentlich solltest Du jetzt lange genug aktiv sein, um ein Muster zu präsentieren:

Arbeitsblatt mit dem Namen 'Tabelle1'
	H	I
1		6
2	1
3	2
4	3
5
6		22
7	4
8	5
9	6
10	7
11
12
13
14		27
15	8
16	9
17	10
18
19		3
20	1
21	2
22
23		9
24	4
25	5

Zelle	Formel
I1	{=WENN((H2<>"")*(H1="");SUMME(H2:INDEX($H3:$H$35;VERGLEICH(WAHR;$H3:$H$35="";0)));"")}

Achtung, Matrixformel enthalten!

Die geschweiften Klammern{} werden nicht eingegeben.

Verlassen Sie den Zelleneditor mit Strg+Shift + Enter, statt Enter alleine.

Diese Tabelle wurde mit Tab2Html (v2.4.1) erstellt. ©Gerd alias Bamberg

[Luffy]

Hi Fennek,

danke für deine schneller Antwort, wie beschrieben gehen meine VBA Kenntnisse gegen 0 (noch).

Habe deinen Code probiert und bekomme:

"Laufzeitfehler '1004':

"Keine Zellen gefunden."

Mach ich was falsch? oder muss ich das noch ausbauen ? Falls ja, wie ?! 

Danke!

[Luffy]

Hey Edgar,

Vielen dank für die Antwort genau das hab ich gesucht!!!! Spitze 1000 Dank!!