So soll das klappen. Aber das klappt nicht:
Public Sub RefreshWorkbooks()
Dim objWorkbook As Workbook
Dim strFolder As String, strThisworkbookName As String
Dim strFilename As String
strFolder = ThisWorkbook.Path & "\"
strThisworkbookName = ThisWorkbook.Name
With Application
.EnableEvents = False
.ScreenUpdating = False
.ShowWindowsInTaskbar = False
End With
strFilename = Dir$(strFolder & "*.xlsm")
Do Until strFilename = vbNullString
If strFilename strThisworkbookName Then
Set objWorkbook = Workbooks.Open(Filename:= _
strFolder & strFilename, UpdateLinks:=3)
Call objWorkbook.RefreshAll
Call objWorkbook.Close(SaveChanges:=True)
Set objWorkbook = Nothing
End If
strFilename = Dir$
Loop
With Application
.EnableEvents = True
.ScreenUpdating = True
.ShowWindowsInTaskbar = True
End With
End Sub
Quelle:
https://www.herber.de/forum/archiv/1488to1492/1490352_VBA__geschlossene_Excel_aktualisieren.html
Wenn ich irgendeine Zelle ändere soll die Exceltabelle aktualiert werden. Und nicht nur, wenn ich eine Zelle bearbeite, dass dann diese Zelle aktualisiert wird.