Supportnet / Forum / Tabellenkalkulation
Werte zusammenfassen
Frage
Hallo Excellianer,
bin mal wieder an meine Grenzen geraten.
Und zwar möchte ich mehrere Tabellen aus verschiedenen Blättern in Abhängigkeit vom Datum und von der Position in einem neuen Blatt addieren.
Im Bsp. ist das Ganze nochmal dargestellt:
http://www.netupload.de/detail.php?img=011481a2153d096f5263c5e5644a99da.xls
Mit den Indexformeln kann ich nicht arbeiten, da ich mal 3, mal 7 oder mal x Plantagen habe. Es muss also ein Makro.
Ich habe mir da zwar meine Gedanken gemacht, bin aber kläglich gescheitert.
Meine Lösung sah so aus:
With Worksheets("GuV (total)")
For inspalte = 7 To 26
For inZaehler = 15 To Worksheets.Count Step 7
On Error Resume Next
doSumme = doSumme + Application.WorksheetFunction.HLookup(.Cells(6, inspalte), _
Worksheets(inZaehler).Range("g6:z90"), 5)
Next inZaehler
Cells(10, inspalte) = doSumme
doSumme = 0
Next inspalte
Aber das Makro wollte einfach nicht.
Habt Ihr manchmal einen Tipp. Würde mir den Hals retten.
Gruß
Peter3011