Excel automatisch mappe öffnen und schliessen (VBA)

[flashmonie]

Hallo zusammen,

Momentan versuche Ich einen Workaround zu machen für folgendes Problem: In meiner Zielmappe habe ich eine getUrl Funktion die sich auf die Quellmappe bezieht. Beim öffnen der Zielmappe muss diese jedoch aktualisiert werden, wenn man die Zielmappe aktualisiert, entsteht jedoch ein #value Fehler. 
Sobald die Quellmappe jedoch geöffnet wird, verschwindet der Fehler und alle Daten werden aktualisiert.

Mit meinen recht bescheidenen Excel Kenntnissen kam Ich hier nicht weiter.

Nun habe Ich mir gedacht, ein einfaches Macro zum öffnen und automatischen schliessen der Quellmappe.

Code:

Sub tlačítko1_Kliknutí()
Workbooks.Open "\\xxxx\xx\x\xxxxxxx\Quellmappe.xlsx"

Application.Wait (Now + TimeValue("0:00:20"))

Workbooks.Close "\\xxxx\xx\x\xxxxxxx\Quellmappe.xlsx"

End Sub

Dies hat natürlich nicht funktioniert.

Da mehrere Personen auf die Zielmappe zugreifen, muss dies jedoch einfach zu handhaben sein, also sollte so eine Funktion entweder automatisch, oder nur per 1 Knopfdruck zu erledigen sein.

Ich entschuldige mich für mein Deutsch und meinen sehr begrenzten Kenntnissen.
Dennoch würde Ich mich über ein bisschen Hilfe sehr freuen und wäre sehr dankbar.

Mit freundlichen Grüßen,
flashmonie

[Kuwer]

Hallo,

alle Codes kommen in die Zielmappe.

Modul "DieseArbeitsmappe":

Code:

Option Explicit

Private Sub Workbook_Open()
  strQuellmappe = "Quellmappe.xlsx"
  Workbooks.Open Filename:="C:\Users\xxx\Documents\Excel\Test\ZielQuelle\" & strQuellmappe, ReadOnly:=True
  Application.OnTime Now + TimeSerial(0, 0, 4), "QuellmappeSchliessen"
End Sub

Modul "Modul1":

Code:

Option Explicit

Public strQuellmappe As String

Private Sub QuellmappeSchliessen()
  Workbooks(strQuellmappe).Close False
End Sub

Gruß Uwe