Summe über ActiveCell
11.04.2006 17:26:27
Stefan
ich habe mal wieder ein kleines Problem. Wenn in der Spalte A der Text "Summe" erscheint, soll in der Spalte F(gleiche Zeile) eine AutoSumme über die vorherigen Zahlen der Spalte F stattfinden. Das soll sich für alle "Summe" wiederholen.
Ich hatte mir mal Gedanken über den Code gemacht, jedoch meckert Excel in der Zeile wo ich die Summe bilden möchte. Weiß jemand eine Lösung?
Sub Insert_Sum()
Dim k As Long, i As Long
k = 1
For i = 1 To Range("A65536").End(xlUp).Row + 1
Cells.Find(what:="Summe", LookAt:=xlPart).Activate
Zelle = ActiveCell.Offset(0, 5).Select
Zelle = Application.WorksheetFunction.Sum(Range(Cells(k, 0), Cells(i - 1, 0)))
ActiveCell.Font.Bold = True
k = i + 1
'Set Zelle = Cells.FindNext(After:=ActiveCell)
Next i
End Sub