Office: vba excel summe mit bedingungen

Hallo,
ich arbeite mit Office 2007.
In Excel habe ich mit vba ein Makro geschrieben, dass gut läuft. Aber jetzt benötige ich eine sumifs Formulierung und scheitere.

Mit nachfolgender Schleife werden Daten ausgelesen:

Sheets("konten_o_1106+1415").Select
Range("A1:I1000").Select
lz = Cells(Rows.Count, 1).End(xlUp).Rows.Row

For t = lz To 2 Step -1
If Cells(t, 1).Value = "1253" And Cells(t, 2).Value = "Tausch-Gutschein 14-15" And Cells(t, 3).Value = "Kv-Gutschein (VK)(216)" Then Cells(t, 9).Copy
Sheets("Rechenblatt_z_ZVerkaufsSt").Select
Range("C20").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End If
Next t

Mit dieser Schleife bekomme ich genau einen Wert. Treffen die Bedingungen zweimal zu, habe ich das Problem.
Ich möchte alle Zeilen auslesen, die die Bedingungen erfüllen und diese Werte (in Spalte "I") summieren und auf dem Tabellenblatt "Rechenblatt...." wiedergegeben bekommen.

Das geht bestimmt, ich weiß aber nicht wie.

Kann jemand helfen?

Vielen Dank!

 

Hallo,

zwar ungetestet, aber ich hoffe es passt.
Die Werte aus Spalte I des Bereiches "konten_o_1106+1415!A1:I1000" werden, sofern sie die Kriterien erfüllen, in der Zelle "Rechenblatt_z_ZVerkaufsSt!C20" addiert.

Code:

Option Explicit

Sub Addition()
 Dim xlOp As Variant
 Dim t As Long
 Dim Ziel As Range
 
 Set Ziel = Sheets("Rechenblatt_z_ZVerkaufsSt").Range("C20")
 
 With Sheets("konten_o_1106+1415").Range("A1:I1000")
   xlOp = xlNone
   For t = .Rows.Count To 2 Step -1
      If .Cells(t, 1).Value = "1253" And _
         .Cells(t, 2).Value = "Tausch-Gutschein 14-15" And _
         .Cells(t, 3).Value = "Kv-Gutschein (VK)(216)" Then
         .Cells(t, 9).Copy
         Ziel.PasteSpecial Paste:=xlPasteValues, Operation:=xlOp, SkipBlanks:=False, Transpose:=False
         xlOp = xlAdd
      End If
   Next t
 End With
 
End Sub

 

Hallo,

vielen, vielen Dank. Das hat sofort geklappt.

LG
avs