Teilsumme als VBA
19.05.2016 21:41:54
Sabine
eigentlich bin ich bei der Lösungssuche immer recht hartnäckig aber jetzt weiß ich einfach nicht mehr weiter. Aber vielleicht geht das aber auch nicht per VBA umzusetzen.
Ich habe zwei Excel Dateien :
in der Datei A auf dem Tabellenblatt 2016 befinden sich meine Daten die ich nach bestimmten Ländergruppen filtere und ein Teilergebnis (Summe) aus Spalte J ermittle.
mein Ist - Zustand : das Teilergebnis wird mir in Datei B (Zelle G1) mit Hilfe der Excel Formel
= TEILERGEBNIS(9;'[TabelleA]2016'! J2:J10000) angezeigt.
Dann lese ich die Zelle G1 per Makro aus um dieses Ergebnis in D2 der Datei B zu schreiben. Der Bereich A:E ist als Tabelle formatiert und der Eintrag soll von Zeile zu Zeile "vererbt" werden. Mein Makro sieht wie folgt aus:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim rngInput As Range
Set rngInput = Columns(2)
If Application.Intersect(Target, rngInput) Is Nothing Then Exit Sub
R = Target.Row
Cells(R, 4) = Cells(1, 7)
End Sub
Nun hätte ich gern den Umweg über Cells(1,7) gespart und direkt in der Makrozeile
Cells(R,4) = Application.WorksheetFunction.subtotal(9, ?) das Teilergebnis in die Tabelle in Datei B eingefügt.
Ich habe versucht nach dem Muster Workbooks("TabelleA.xlsm").Sheets("2016").Range("J2:J10000") die Range zu setzen aber das Makro aufgrund einer Fehlermeldung abgebrochen.
Kann mir hier jemand helfen, wo mein (Denk-)Fehler liegt?
Danke.
Grüße
Sabine