Nochmal Teilergebnis mit Makro
15.09.2003 14:35:35
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
ich habe dann den tipp bekommen, dass durch StartRow = 1 immer wieder in der ersten zeile begonnen wird. dabei ist mir allerdings aufgefallen, das immer in zweier schritten ein teilergebnis eingefügt wird. es soll aber immer wenn die zeile leer ist ein teilergebnis eingefügt werden und nicht in zweier schritten!
hilfe!!!
Mein Versuch!!!
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
Erter Hilfe Versuch!
Sub Summeneintrag()
Dim bytZähler As Byte
Sheets("Tabelle1").Select
Range("A1").Select
Do Until ActiveCell.Value = ""
For bytZähler = 1 To 3 Step 2
ActiveCell.Offset(1, 0).Activate
Next
ActiveCell.Formula = "=SUBTOTAL(9,a" & ActiveCell.Row() - 2 & ":a" & ActiveCell.Row() - 1 & ")"
Selection.Font.Bold = True
ActiveCell.Offset(1, 0).Select
Loop
End Sub