Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
944to948
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
944to948
944to948
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Gefilterte Spalte, Summe bilden

Gefilterte Spalte, Summe bilden
30.01.2008 06:40:00
TOM
Guten Morgen zusammen
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

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Gefilterte Spalte, Summe bilden
30.01.2008 08:44:00
TOM
Hallo Hajo
Besten Dank für Deine Datei!
Ich habe in der Zwischenzeit auch etwas probiert und mit Worksheet

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

Anzeige

293 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige