Live-Forum - Die aktuellen Beiträge
Datum
Titel
14.10.2025 19:08:54
Verbindung von Excel mit maps
14.10.2025 15:55:14
wenn zwei Werte aus Liste übereinstimmen, dann wahr
14.10.2025 14:57:29
Wenn Datum in Ferienzeit dann Name angeben
14.10.2025 09:39:44
VBA - Excel speichern und schließen (Laufzeitfehler 91)
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1044to1048
1044to1048
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

S-Verweis Spaltensumme selektiv

Forumthread: S-Verweis Spaltensumme selektiv

S-Verweis Spaltensumme selektiv
30.01.2009 17:54:00
Michi
Ich habe mein Problem vereinfacht in der unten angeführten Tabelle dargestellt:
19 Bauern produzieren Milch
Nur die Milchproduktion von Bauern sollen summiert werden, die einer Gruppe zugehören.
Ich bräuchte einen S-Verweis, der nur die Produktion der Gruppe berücksichtigt.
Wie sollten denn im Idealfall die Gruppendaten aussehen.
Meine "echte Tabelle" hat 70 Spalten (Bauern) und mehrere tausend Gruppen.
https://www.herber.de/bbs/user/58937.xls
Vielen Dank für Eure Mühe.
Anzeige

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: S-Verweis Spaltensumme selektiv
30.01.2009 18:04:00
Hajo_Zi
Hallo Mihi,
warum ordnest Du die Bauern nicht entsprechend Ihrer Gruppe?

AW: S-Verweis Spaltensumme selektiv
30.01.2009 18:14:55
Michi
Stimmt, das hab ich nicht dazugeschrieben. Leider ist eine Mehrfachselektion bei den Tausen Gruppen möglich.
Gruppe 1: Bauer 1,2,3
Gruppe 2: Bauer 2,3,5,19
Gruppe 2: Bauer 2,5,15
Anzeige
mit VBA
30.01.2009 18:28:00
Tino
Hallo,
wie wäre es mit einer Funktion in VBA, diese kommt in eine Modul Deiner Arbeitsmappe.
Function SpezialSumme(rZelle As Range, SuchBereich As Range, SpaltenIndex As Long)
Dim meAr, A As Long
Dim Wert
meAr = Split(rZelle, ",")

With Application
    For A = Lbound(meAr) To Ubound(meAr)
     Wert = .HLookup(Trim$(meAr(A)), SuchBereich, SpaltenIndex, 0)
     If IsNumeric(Wert) Then SpezialSumme = SpezialSumme + Wert
    Next A
End With

End Function


In Excel kannst Du diese wie eine gewöhnliche Formel verwenden.

 BCD
7 Gruppe 
8MilchBauer 25, Bauer 4, Bauer 5, Bauer 1176
9MilchBauer 7, Bauer 9, Bauer 16, Bauer 13128,8333333

Formeln der Tabelle
ZelleFormel
D8=SpezialSumme(C8;$B$1:$T$2;2)
D9=SpezialSumme(C9;$B$1:$T$2;2)

Gruß Tino
Anzeige
AW: mit VBA
30.01.2009 19:10:00
Michi
Perfekt. Danke schön!
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
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