Teilergebnis mit Makro
15.09.2003 12:02:00
Stefan
ich möchte in eine spalte mit werten, teilergebnisse einfügen
in a1 = 1, a2 = 1 a3 = leer, a4 = 2 und a5 = 2
mit meinem makro bekomme ich nun in a3 das ergebnis 2
in a6 allerdings 6, das makro soll aber nicht das vorherige teilergebnis mit einbeziehen! wie kann ich das machen? danke für die hilfe
Sub Summeneintrag()
Dim StartRow As Integer
Sheets("Tabelle1").Select
Range("A1").Select
StartRow = 1
While ActiveCell.Value <> 0
While ActiveCell.Value <> ""
ActiveCell.Offset(1, 0).Select
Wend
ActiveCell.Formula = "=SUBTOTAL(9,a" & StartRow & ":a" & ActiveCell.Row() - 1 & ")"
Selection.Font.Bold = True
ActiveCell.Offset(1, 0).Select
Wend
End Sub
Anzeige