Summewenn mit mehr als 1 Kriterium nur per VBA

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Klaus

Hier der entsprechende VBA_Code dazu:

Function MySumProd()
'by Ramses
'fixe Konstellation
Dim i As Integer, n As Integer
Dim ResC As Integer 'Wertespalte
Dim S1 As Variant, S2 As Variant
Dim intSum As Variant
S1 = Range("G1")
S2 = Range("G2")
ResC = 3
intSum = 0
'Zwei Schleifen über A und B
For n = 1 To 2
    'Multiplizieren
    For i = 1 To Cells(65536, n).End(xlUp).Row
        If Cells(i, n) = S1 Or Cells(i, n) = S2 Then
            intSum = intSum + Cells(i, ResC)
        End If
    Next i
Next n
MySumProd = intSum
End Function

Function MySumProd2(R1 As Range, R2 As Range, R3 As Range, S1 As Variant, S2 As Variant)
'by Ramses
'Variable Konstellation
Dim i As Integer
Dim intSum As Variant
Dim myC As Range
intSum = 0
Debug.Print "Spaltennummer " & R3.Column
For Each myC In R1
    If myC.Value = S1 Or myC = S2 Then
        intSum = intSum + myC.Offset(0, R3.Column - R1.Column)
    End If
Next
For Each myC In R2
    If myC.Value = S1 Or myC = S2 Then
        intSum = intSum + myC.Offset(0, R3.Column - R2.Column)
    End If
Next
MySumProd2 = intSum
End Function

Code eingefügt mit Syntaxhighlighter 1.16

Hier die Tabelle mit dem Aufruf der Funktionen:

Sub Summe_01() Dim iRow As Integer, W1, W2, sum As Variant iRow = 1 W1 = Sheets("Mask-01").Range("G7").Value 'Kriterium 1 W2 = Sheets("Mask-01").Range("G11").Value 'Kriterium 2 Do Until IsEmpty(Sheets("DB-01").Cells(iRow, 2)) 'ab Zeile 2 If Sheets("DB-01").Cells(iRow, 2).Value = W1 And _ Sheets("DB-01").Cells(iRow, 5).Value = W2 And _ Sheets("DB-01").Cells(iRow, 47).Value > 0 Then sum = Sheets("DB-01").Cells(iRow, 47).Value + sum 'Wert + nächster Wert End If iRow = iRow + 1 Loop Sheets("Mask-01").Range("G17") = sum 'Rückgabe in Zelle End Sub

Hallo Rainer,
das posten meines Macros sollte natürlich keine Kritik sein.
Ich hoffe Du hast es nicht so aufgefasst.
Deine Funktion ist in Hinsicht auf Individualität mit Sicherheit die Bessere.
Diese lässt sich in jede Tabelle und ohne weitere Anpassung einbauen.
Es ist ja auch eben eine Funktion. Und die hat mir auch weitergeholfen.
Aber zum einen ist sie bei ca. 20.000 Datensätzen sehr Träge und
zum anderen benötige ich die gesuchten Werte immer nur aus einem Datensatz.
Zu A)
Das Kriterium ">0" in Spalte 47 benötige ich deshalb, weil dort auch negative
Werte stehen die nicht summiert werden sollen.
Die Zeile kann man ja bei Bedarf weglassen.
Zu B)
Die Suchbegriffe müssen natürlich vorhanden sein. In meinem Projekt sind es
Kundennummer und das Jahr der Rechnungsstellung. In einer Datenbank dieser
Art ist das Vorhandensein dieser Daten aber auch Pflicht.
Zu "woher weisst du übrigens,..."
Ich weiss nicht ob ich die Frage richtig interpretiere!?
Die Spaltennummern kann man doch zählen, oder Z1S1-Bezugsart.

Ob einfacher oder nicht. Mein Beispiel ist jedenfalls für mich einfacher.
Und da ich aus Prinzip nicht zu den Fragern gehören will, die aus Selbstherrlichkeit
ihre aus dem kostenlosen(!)Forum gewonnenen Erkenntnisse nicht der Öffentlichkeit
mitteilen wollen, habe ich eben mein Beispiel gepostet.

So und wünsche ich Dir noch einen angenehmen "Codeing-Abend" :-)
Gruss Klaus

Beliebteste Forumthreads (12 Monate)

Summewenn mit mehr als 1 Kriterium nur per VBA

11
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

313 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Summewenn mit mehr als 1 Kriterium nur per VBA

11 Beiträge zum Forumthread Beiträge zu diesem Forumthread

313 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

11
Beiträge zum Forumthread

Beiträge zu diesem Forumthread