Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: Sorry Tino, Bitte nochmal wg. Deinem Beispiel

Sorry Tino, Bitte nochmal wg. Deinem Beispiel
Joachim
Hallo Tino,
Sorry der Belästigung. Du hast mir doch letzte Woche das Beispiel geschickt, mit dem Zusammenfassen von Datensätzen. Babei sollte man bei gleichem Inhalt in V , die Preise in "E" addieren.
Das war diese Zeile:
.FormulaR1C1 = "=IF(OR(RC22="""",RC22=""S""),RC5,IF(COUNTIF(R10C22:RC22,RC22)=1," & _
"SUMIF(R10C22:R" & LRow & "C22,RC22,R10C5:R" & LRow & "C5),""""))"
Ich würde gerne ausser "E" auch "A" addieren.
Habe versucht, die Gleiche Zeile nochmal mit RC1 laufen zu lassen, das funktioniert aber nicht so einfach.
Was muss ich denn ändern oder erweitern um "A" (bei gleichem Inhalt "V") auch zu addieren
Falls der Code etwas zu dürftig ist, sichicke ich das ganze nochmal, evt. kannst Du Dich aber erinnern.
Sag Bescheid
Danke Joachim
Anzeige

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
Glaube, habs doch hingebracht..
29.09.2009 09:11:42
Joachim
So:
LRow = .Rows(.Rows.Count).Row
'A summieren
.FormulaR1C1 = "=IF(OR(RC22="""",RC22=""S""),RC5,IF(COUNTIF(R10C22:RC22,RC22)=1," & _
"SUMIF(R10C22:R" & LRow & "C22,RC22,R10C5:R" & LRow & "C1),""""))"
'und zurück schreiben
.Offset(0, -(.Column - 1)).Value = .Value
'E summieren
.FormulaR1C1 = "=IF(OR(RC22="""",RC22=""S""),RC5,IF(COUNTIF(R10C22:RC22,RC22)=1," & _
"SUMIF(R10C22:R" & LRow & "C22,RC22,R10C5:R" & LRow & "C5),""""))"
'Daten zurück schreiben
.Offset(0, -(.Column - 5)).Value = .Value
Ist sicher nicht die Eleganteste Lösung, scheint aber zu funktionieren.
Gruss
Joachim
Anzeige
AW: Sorry Tino, Bitte nochmal wg. Deinem Beispiel
29.09.2009 09:33:51
Tino
Hallo,
habe den Beitrag erst jetzt gesehen.
So müsste es funktionieren.
.FormulaR1C1 = "=IF(OR(RC22="""",RC22=""X""),RC1,IF(COUNTIF(R10C22:RC22,RC22)=1," & _
"SUMIF(R10C22:R" & LRow & "C22,RC22,R10C1:R" & LRow & "C1),""""))"
.Offset(0, -(.Column - 1)).Value = .Value
Gruß Timo
Anzeige
Danke Tino, ja geht :-) owT
29.09.2009 09:40:24
Joachim
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Anzeige
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige