Könnte Ihr mir einen Tipp geben wie ich mit VBA das Teilergebnis (Summe) bilden kann bei einer gefilterten Splate! Die gefilterten Daten sind dynamisch und auch dann müsste sich die Summe bilden lassen!
Besten Dank und Gruss
TOM
Function hat's geklappt:
Sub AUSWERTEN()
Dim dblSumme As Double, rngBereich As Range, bytZähler As Byte
Set rngBereich = Worksheets("DATEN").Range("D2:D10000")
For bytZähler = 1 To 45
Sheets("DATEN").Activate
Range("H1").AutoFilter Field:=8, Criteria1:=Sheets("VERBRAUCH").Range("E2").Value
Range("H1").AutoFilter Field:=2, Criteria1:=Sheets("VERBRAUCH").Range("A" & bytZähler + _
3).Value
dblSumme = WorksheetFunction.Subtotal(9, rngBereich) * 1000
Sheets("VERBRAUCH").Activate
Range("E" & bytZähler + 3).Value = dblSumme
Next
End Sub
Schöner Tag und Gruss
TOM