Live-Forum - Die aktuellen Beiträge
Datum
Titel
29.03.2024 13:14:12
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1104to1108
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

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

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
Danke Tino, ja geht :-) owT
29.09.2009 09:40:24
Joachim

87 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige