Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
512to516
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
512to516
512to516
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Per VBA Leerzeile suchen + Zwischensummen bilden

Per VBA Leerzeile suchen + Zwischensummen bilden
05.11.2004 09:10:08
Heinz
Guten Morgen zusammen,
ich möchte gern die Spalte C ab der Zeile 9 nach unten durchlaufen und alle Werte bis zur nächsten Leerzeile aufaddieren lassen. Jetzt kommt das knifflige, das ganze soll nicht nur einmal, sondern insgesamt achtmal funktionieren. D.h. ich habe z.b. 160 Werte in Spalte C, die insgesamt durch 8 Leerzeilen getrennt sind (als Beispiel also jeweils 20 Werte pro Gruppe, können aber auch mal 10 und mal 30 sein!). Nun soll Excel die Leerzeilen suchen und jeweils bis zur nächsten Leerzeile die Summe über alle darin enthaltenen Werte bilden.
Hoffe, dass Ihr mich versteht ;-) etwas schwierig zu erklären!
Für jede Hilfe bin ich dankbar!
Gruß
Heinz

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Ergänzung
05.11.2004 09:14:24
Heinz
Die Zwischensummen sollen jeweils über der entsprechenden Gruppe erscheinen!!!
AW: Ergänzung
Ingolf
Hallo Heinz,
so müsste es gehen:

Sub Summieren()
Dim lng As Long, lngSumme As Long
For lng = Cells(Rows.Count, 1).End(xlUp).Row To 1 Step -1
If IsEmpty(Cells(lng, 1)) = True Then
Cells(lng, 1) = lngSumme
lngSumme = 0
Else
lngSumme = lngSumme + Cells(lng, 1)
End If
Next lng
End Sub

Gruß Ingolf
Ingolf, vielen Dank!!!! o.T.
05.11.2004 10:56:40
Heinz
Anzeige

301 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige