Google Groups no longer supports new Usenet posts or subscriptions. Historical content remains viewable.
Dismiss

Summewenn im Macro

18 views
Skip to first unread message

Thorsten Tausche

unread,
Jan 30, 2003, 6:56:52 AM1/30/03
to
Halle alle zusammen,
Ich möchte folgendes Problem realisieren :

ich möchte aus einer Liste mit Namen und zugehörigen Werten
eine Gesamtsumme von einem bestimmten Namen haben.
Bsp :

schmitt 10
Maier 15
karl 5
schmitt 13

usw

dann soll er mir in einem Macro eine Summe zur Weiterverarbeitung
errechnen nur von Schmitt zum Beispiel.
Summe Schmitt = 23

ActiveCell.FormulaR1C1 = "=SUMIF(C[2],""Schmitt"",C[3])"

nur möchte ich den Namen durch eine Variable ersetzen um
auch noch andere Namen abzufragen.
Auch die Bezweichung der Bezugsspalten sind mir ein Rätsel ?

Hat jemand eine Idee für mich ?
Vielen Dank und
mit freundlichen Grüssen
Thorsten


Melanie Breden

unread,
Jan 30, 2003, 7:35:41 AM1/30/03
to
Hallo Thorsten,

"Thorsten Tausche" schrieb:

> ich möchte aus einer Liste mit Namen und zugehörigen Werten
> eine Gesamtsumme von einem bestimmten Namen haben.
> Bsp :
>
> schmitt 10
> Maier 15
> karl 5
> schmitt 13
>
> usw
>
> dann soll er mir in einem Macro eine Summe zur Weiterverarbeitung
> errechnen nur von Schmitt zum Beispiel.
> Summe Schmitt = 23
>
> ActiveCell.FormulaR1C1 = "=SUMIF(C[2],""Schmitt"",C[3])"
>
> nur möchte ich den Namen durch eine Variable ersetzen um
> auch noch andere Namen abzufragen.
> Auch die Bezweichung der Bezugsspalten sind mir ein Rätsel ?

vielleicht hilft dir folgender Ansatz:

Sub test()
Dim Eingabe As String
Eingabe = Application.InputBox("Welchen Namen wollen Sie berechnen?" _
, "Eingabeaufforderung")
If Eingabe = "" Then Exit Sub

ActiveCell.FormulaR1C1 = "=SUMIF(C[2],""" & Eingabe & """,C[3])"
End Sub

mit Gruß
Melanie

____________________
Melanie Breden
[Microsoft MVP für Excel]

Frank Arendt-Theilen

unread,
Jan 30, 2003, 8:19:06 AM1/30/03
to
Hallo Thorsten,
dannn benutze die lokalisierte VBA-Anweisung:

ActiveCell.FormulaLocal = "=SUMMEWENN(" & _
ActiveSheet.Range("A1:A4").Address & ";""" & Variable & """;" & _
ActiveSheet.Range("B1:B4").Address & ")"

Ergebnis in der Formelzelle: =SUMMEWENN($A$1:$A$4;"schmitt";$B$1:$B$4)

MfG Frank
_________________________________________________
Frank Arendt-Theilen, Microsoft MVP für Excel, Hameln
eMail: Thei...@t-online.de, Homepage: http://www.xl-faq.de

Thorsten Tausche

unread,
Jan 31, 2003, 3:34:00 AM1/31/03
to
Vielen dank, damit kann ich was anfangen
und es funktioniert.

vielen Dank ihr zwei
Gruss
Thorsten


"Thorsten Tausche" <tau...@treukapital-gmbh.de> schrieb im Newsbeitrag
news:uWk#rRFyCHA.428@TK2MSFTNGP09...

0 new messages