Teilergebnis per VBA
19.06.2009 15:57:32
Gregor
Ich arbeite mit folgendem Makro:
'--- Summe bilden Spalten 8 bis 72
For Start = 8 To 72
Set Bereich = Range(Cells(4, Start), Cells(100, Start))
For Each c In Bereich
If Not IsNumeric(c) Then GoTo nächste
Next
Cells(intLastRow1, Start).Value = Application.WorksheetFunction.Sum(Bereich)
nächste:
Next
Anstelle der Summe (Betrag) möchte ich die Formel Teilergebnis (vermutlich mit Formula Local) in die entsprechenden Zellen schreiben, damit bei Filterung Summe variabel. Alle meine Versuche schlugen fehl. Wie lautet der richtige Befehl?
Vielen Dank
Gregor