Hallo Holger,
danke für die schnelle Antwort. Habe die Lösung soweit ausprobiert und es zeigt schon mal keinen Fehler an, jedoch auch kein Ergebnis.
Habe den Code wie folgt eingegeben:
Sub BedingteSummierung()
Sheets("Tabelle1").Activate
For i = 1 To 10
If Cells(i, 9) = "Haus" And Cells(i, 3) = "Hund" Then
Sheets("Tabelle2").Cells(5, 3) = Sheets("Tabelle2").Cells(5, 3) + ActiveSheet.Cells(i, 84)
End If
Next
End Sub
Werden in diesem Fall eigentlich alle Werte der Spalte CF, wo in den parallelen Zellen, Spalte I Haus und in Spalte C Hund (beide Bedingungen gleichzeitig erfüllt in einer Zeile) stehten, addiert? Die Konstllation Haus und Hund kommt in Tabelle 1 öfter vor.
Ist die Summenfunktion durch das "+" ausgedrückt?
Gruß
Christian
Holger schrieb am 07.05.2008 15:12:32:
Du hasr recht, ich habe mich an einer Steller verschrieben: Es muss natürlich
Cells(5, 3) = Cells(5, 3) + Cells(i, 84) heißen.
Auf einem anderen existierenden Tabellenblatt, z.B. "Tabelle2", sprichst du C5 wie folgt an
Sheets("tabelle2").Cells(5, 3)=Sheets("tabelle2").Cells(5, 3)+activesheet.Cells(i, 84)
Gruß
Holger
Anfänger schrieb am 07.05.2008 15:05:00:
Hallo Holger,
wenn die beiden Bedingungen (Haus und Hund) aus den Spalten I und C gleichzeitig in eine Zeilen erfüllt sind, soll aus diesen Zeilen die Zahlen in Spalte CF addiert werden und z.B. in Zelle C5 eines anderen Sheets ausgegeben werden.
Werde es mit deiner Lösung probieren, denke aber, dass sie nicht so ganz passt.
Danke.
Gruß
Christian
Holger schrieb am 07.05.2008 14:37:10:
Hallo Anfänger,
leider ergibt sich aus dem Code nicht, was du wirklich willst. Ich vermute, du willst, wenn in einer Zeile in Spalte I "Haus" steht und in Spalte C "Hund" die Werte dieser Zeile in Spalte CF addieren und die Summe in Zelle C5 ausgeben:
Sub BedingteSummierung()
Sheets("tabelle1").Activate
For i = 1 To 10
If Cells(i, 9) = "Haus" And Cells(i, 3) = "Hund" Then
Cells(5, 3) = Cells(5, 4) + Cells(i, 84)
End If
Next
End Sub
Gruß
Holger
Anfänger schrieb am 07.05.2008 11:02:03:
Hallo,
kann mir jemand bitte sagen wo hier der Syntaxfehler ist?
Sub BedingteSummierung()
Range("C5").Value = _
Application.WorksheetFunction.If Range("'Tabelle1'!I1:I60000") = "Haus" And Range("'Tabelle1'!C1:C60000") = "Hund" Then
Sum Range("'Tabelle1'!CF1:CF60000")
End If
Next
Es sollen in den beiden Spalten (I und C) Bedingungen erfüllt werden um die zugehörigen Werte in Spalte CF zu summieren.
Danke im Voraus
Christian |