Sverweis mit Schleife zur Summierung in VBA
22.08.2013 19:06:02
Horst
ich habe einen Abzug aus einer Datenbank, der aus vielen zusammengesetzten Strings und dazugehörigen Werten in Form einer zweispaltigen Matrix besteht, der nun in ein Tabellenformat gebracht werden soll (Tabellenblatt "Database"). Die Excel Datei findet Ihr hier:
https://www.herber.de/bbs/user/86990.xls
Für einzelne Einträge (im Tabellenblatt "Table") ist das auch mit einem Sverweis problemlos möglich. Ich möchte dafür nun jedoch eine Funktion haben, die automatisch die Summen aus den Suchkriterien in Spalte B pro Suchkriterium in Zeile zwei berechnet, da dafür die Formel einfach zu unübersichtlich wäre. Im Ergebnis sollen die Summen aus Zeile 20 stehen.
Hier soweit der Code:
Function AggregatedSums(List As String, PositionType As String, LookupTable As Variant) For i = 1 To UBound(List) SearchCriterion = List(i) & "_" & PositionType & List(i) Value = Application.WorksheetFunction.VLookup(SearchCriterion, LookupTable, 2, 0) Next i AggregatedSums = Value End Function Ich kriege es einfach nicht zum laufen. Für jede Hilfe wäre ich äusserst dankbar.
MfG,
Horst