2 Excel Tabelle automatisch öffnen

[wavemaster]

Hallo zusammen,
Ich hätte gerne folgendes erreicht, jedoch finde Ich im www keine Lösung.
folgende Info vorab:

1. Es gigt einen Hauptordner " Nachunternehmer"
   
2. in diesem gibt es 20 Unterordnern mit Firmen
   
3. in diesen Unterordnern gibt es jeweils ein Abrechnungsformular mit der aktuelle Summe
   
4. im Hauptordner befindet sich eine Exce Tabelle "Gesamtübersicht" mit den aktuellen Summen der 20 Abrechnungsformulare, diese ist verknüpft mit jedem einzelenen Feld in den Abrechnungsformularen der Nachunternehmer
   
5. wenn an einem Abrechnungsformular die Summe geändert wird sollte sich die Summe auch in der "Gesamtübersicht " ändern.
   

und hier ist da Problem

Die Summen in der "Gesamtübersicht" ändert sich nur wenn Ich die Gesamtübersicht geöffnet habe während die Abrechnungsformulare bearbeitet werden.

gibt es die Möglichkeit das die Gesamtübersicht sich öffnet wenn ein Abrechnungsformular geöffnet wird ( das muß dann vermuttlich in jedes Abrechnungsformular eingefügt werden).

In den Einstellungen Datei, Erweitert, "beim Berechnen dieser Arbeitsmappe" ist ein Haken bei ""Verknüpfungen mit anderen Dokumenten aktualisieren" gesetzt.

es funktioniert wie gesagt nur wenn beide Tabellen geöffnet sind.

Ich hoffe das jemand eine Idee hat.


Danke im voraus

Tom

[derHoepp]

Moin,

sinnvoller wäre es, die Datenhaltung zu zentralisieren. Welchen Vorteil bringt es dir, die Informationen getrennt zu speichern, der sich nicht durch einen Autofilter oder eine Pivot-tabelle einfacher erreichen lässt?

Ansonsten, wenn du die Daten mit Powerquery in deine Gesamtübersicht bringst, aktualisierst du auf knopfdruck.

Viele Grüße
derHöpp

[EarlFred]

Die Hinweise zur zentralen Datenhaltung sind wichtig, sie machen dir das Leben leichter.

Aber man kann das auch so umsetzen, wenngleich es nicht sonderlich hübsch ist:
- neue Mappe erstellen
- dort in das Modul DieseArbeitsmappe (englische Version: ThisWorkbook)
den nachfolgenden Code einfügen:

Code:

Option Explicit
Private WithEvents xl_app As Excel.Application

'anpassen
Private Const cStrRootPath       As String = "Laufwerk:\DeinPfad\Nachunternehmer\"
Private Const cStrMastermappe    As String = "Mastermappe.xlsx"


Private Sub Workbook_Open()
Set xl_app = Application
End Sub


Private Sub xl_app_WorkbookOpen(ByVal Wb As Workbook)
If InStr(LCase$(Wb.FullName), LCase$(cStrRootPath)) And LCase$(Wb.Name) <> LCase$(cStrMastermappe) Then
   With GetObject(cStrRootPath & cStrMastermappe)
      .Windows(1).Visible = True
   End With
   Wb.Activate
End If
End Sub

"Laufwerk:\DeinPfad\Nachunternehmer\" und "Mastermappe.xlsx" anpassen. 

Die Mappe dann als AddIn (XLAM) speichern im Pfad
C:\Users\DeinUserName\AppData\Roaming\Microsoft\Excel\XLSTART\