Clever-Excel-Forum

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

Es gigt einen Hauptordner " Nachunternehmer"
in diesem gibt es 20 Unterordnern mit Firmen
in diesen Unterordnern gibt es jeweils ein Abrechnungsformular mit der aktuelle Summe
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
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

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

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\

wavemaster

derHoepp

26865