Spezialsumme VBA
11.02.2009 10:42:00
Michi
Ich habe eine ergänzende Frage zu einem Problem, das ich hier bereits gepostet hatte. Ich konnte den Thread nicht mehr aus dem Archiv zum Leben erwecken. Bitte verzeiht mir das.
Das Problem war hier beschrieben.
https://www.herber.de/forum/archiv/1044to1048/t1045492.htm
und ich habe eine VBA Lösung von Tino bekommen, vielen Dank noch mal dafür. Der Code ist unten angeführt.
Leider bekomme ich die Daten aber nicht so wie ich gedacht habe in Spalten, sondern so wie in dieser Tabelle gezeigt in Zeilen:
https://www.herber.de/bbs/user/59342.xls
Ich bin leider nicht in der Lage den Code zu adaptieren. Könnte mir jemand helfen?
Vielen Dank im voraus für Eure Zeit und Mühe.
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.
| B | C | D | |
| 7 | Gruppe | ||
| 8 | Milch | Bauer 25, Bauer 4, Bauer 5, Bauer 11 | 76 |
| 9 | Milch | Bauer 7, Bauer 9, Bauer 16, Bauer 13 | 128,8333333 |
| Formeln der Tabelle | ||||||
|