SUMIF mit 3 Kriterien
24.08.2013 18:11:46
Tim
Ich suche einen SummeWenn-Ausdruck der diesem ähnelt:
Range("I" & l).Formula = "=SUMIF(A:A,A" & l & ",E:E)"
Aber: Das Kriterium befindet sich in diesem Fall NICHT NUR in Spalte A, sondern AUCH in F und G.
Ich habe mich bereits durch sämtliche Foren und die zahlreichen artverwandten Threads gekämpft, jedoch ergeben deren Lösungsansätze bei mir immer neue Fehler in eben dieser Zeile.
Mein bisher bester Versuch ohne Erfolg war folgender:
Range("K" & l).Formula = "=SUMIF(A:A;" & l & ";F:F;" & l & ";G:G;" & l & ")"
Daraus resultiert aber der Fehler "1004": Anwendungs- oder objektdefinierter Fehler.
Falls der Code des ganzen Subs weiterhilft:
Sub Leitung_Laenge()
' berechnet die Leitungslängen gleicher Art und gleichen Querschnittes
Columns("I:I").Select
Selection.NumberFormat = "#,##0" ' Formatiert die Zielspalte als Zahl _
mit Tausendertrennzeichen
Dim Zeilen_Zahl As Integer ' belegte Zeilen
Dim i As Integer ' Zähler aktuelle Zeile
Dim l As Integer ' Zähler aktuelle Zeile - 1
Dim Wert As Integer ' Wert = Summe aller Leitungslängen _
gleicher Art und gleichen Querschnittes
Sheets("Tabelle1").Activate
Zeilen_Zahl = Cells(Rows.Count, "A").End(xlUp).Row
For i = 4 To Zeilen_Zahl + 1
l = i - 1
If Range("A" & l) & Range("F" & l) & Range("G" & l) Range("A" & i) & Range("F" & i) & _
Range("G" & i) Then
Range("K" & l).Formula = "=SUMIF(A:A;" & l & ";F:F;" & l & ";G:G;" & l & ")"
End If
Next i
End Sub
