Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
|
07.05.2008 11:02:03 |
Anfänger |
|
|
|
07.05.2008 14:37:10 |
Holger |
|
|
|
07.05.2008 15:05:00 |
Anfänger |
|
|
Aw:Aw:Aw:Syntaxfehler? |
07.05.2008 15:12:32 |
Holger |
|
|
|
07.05.2008 16:50:43 |
Anfänger |
|
|
|
09.05.2008 14:38:54 |
Holger |
|
|
Von:
Holger |
Datum:
07.05.2008 15:12:32 |
Views:
586 |
Rating:
|
Antwort:
|
Thema:
Aw:Aw:Aw:Syntaxfehler? |
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 |
- Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
- Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
- Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
- Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
- Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei
Antworten auf Ihren Beitrag zu benachrichtigen
Bitte geben Sie ein aussagekräftiges Thema an.
Bitte geben Sie eine gültige Email Adresse ein!
- Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
- Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
- Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
- Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
- Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei
Antworten auf Ihren Beitrag zu benachrichtigen
Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
|
07.05.2008 11:02:03 |
Anfänger |
|
|
|
07.05.2008 14:37:10 |
Holger |
|
|
|
07.05.2008 15:05:00 |
Anfänger |
|
|
Aw:Aw:Aw:Syntaxfehler? |
07.05.2008 15:12:32 |
Holger |
|
|
|
07.05.2008 16:50:43 |
Anfänger |
|
|
|
09.05.2008 14:38:54 |
Holger |
|
|