summe in einer spalte bis zur nächsten leeren zell
30.08.2006 10:10:29
artur
habe folgendes Problemchen. Ich möchte die Summe in einer Spalte mit einem Makro ausrechnen. Die Summe soll aber nur dann gebildet werden, wenn in der Spalte daneben eine freie Zelle ist.
Hier mal eine Beispieldatei:
https://www.herber.de/bbs/user/36281.xls
Ich habe hier im Forum folgendes Marko entdeckt:
Sub do_it()
Dim Merker As Long, Naechste As Range
Const SPALTE As String = "A"
Merker = 1
On Error GoTo Ende
Do
Set Naechste = Cells(Merker, SPALTE).End(xlDown).Offset(1)
Naechste = WorksheetFunction.Sum(Range(SPALTE & Merker, SPALTE & Naechste.Row - 1))
Naechste.Font.Bold = True
Merker = Naechste.Row + 1
Loop
Ende:
End Sub
Das sucht aber nur nach Leerzeilen in der Spalte in der die Zahlen stehen. Soll aber in der Spalte daneben schaun wann einen Leerzeile kommt und dann daneben summieren in der Zeile.
Hmm, geht das?
Vielen Dank im Voraus
mfg
artur
Anzeige