Summe bilden nach eingefügten Tabellenblätter
18.02.2013 13:02:09
Erwin
ich brauch eure Hilfe:
ich lasse mir jede Woche aus bestimmten Excel-Dateien ein bestimmtes Sheet in eine sogenannte zusammenfassende Datei per Makro kopieren (alle Dateien sind gleich aufgebaut). Das klappt. Nun möchte ich aber im der zusammenfassenden Datei in der Tabelle "Gesamt" immer eine Summe aus den eingefügten Sheets bilden.
Bekomme aber nur Wert-Fehler oder Nullen als Ergebnis. Habe schon viel ausprobiert, aber nichts klappt. Mein letzter Versuch sieht so aus für das Ergebnis im Sheet "Gesamt" in E3:
Public Function zusammen()
dim i as integer
for i = 2 to sheets.count
zusammen=zusammen+application.worksheetfunction.sum(worksheet(i).Range("C8"))
'zelle von den eingfügten tabellen, die summiert werden sollen
next i
End Function
sub summe()
tabelle.cells(3,5).formula"="zusammen(C8)"
Range("E3").autofill destination:= Range("E3:E29")
End Sub .
Anschließend würde ich die zellen in festwerte umwandeln und die eingefügten Sheets wieder löschen.
Vielleich kann mir jemand mit dem summieren helfen! Wäre super!!!!!!!
Schöne Grüße
Erwin
Anzeige