Makro Summewenn mit 3 Kriterien
03.05.2006 22:36:49
Alex
komme an diesem Problem nicht weiter und hoffe um unterstützung.
Folgendes Problem:
in Tabelle1 sind Daten in 4 Spalten ( Spalte 4,6,9 und 8)
Die Daten () aus Spalte 8 sollen summiert werden, wenn die Werte aus Spalten 4,6 und 9 mit Werten in der Tabelle 2 übereinstimmen, wobei beim 1. Kriterium (Spalte4) nur die ersten 4 Zeichen verglichen werden)
habe schon Makro zusammengestellt aber wie so oft funktioniert es nicht ganz richtig - die Ergebnisse sind falsch. Kann vieleicht es an der Anzahl der Zeilen liegen? Es sind nähmlich über 20000.
Das Ergebnis sollte dann in der Tabelle 2 neben 2. Kriterium ausgegeben werden.
Sub Makro()
Dim n
Dim Summe1
For n = 1 To Cells(Rows.Count, 5).End(xlUp).Row
If Left(Worksheets("Tabelle1").Cells(n, 4).Value, 4) = Worksheets("Tabelle2").Cells(1, 2) And _ Worksheets("Tabelle1").Cells(n, 6).Value = Worksheets("Tabelle2").Cells(5, 2) And _ Worksheets("Tabelle1").Cells(n, 9).Value = Worksheets("Tabelle2").Cells(1, 3) Then
Summe1 = Summe1 + Worksheets("Tabelle1").Cells(n, 8).Value
End If
Next
Worksheets("Tabelle2").Cells(5, 3) = Summe1
End Sub