Aktualisierung per Makro

Private Sub Workbook_Open()
'Hier das Makro zum Aktualisieren der Tabelle2
'erst pruefen, ob Ursprungstabelle schon geoeffnet ist
Dim WB As Workbook
Dim Usersel As String
Dim SourcePath As String
Dim SourceName As String
Dim SourceExt As String
Dim WarOffen As Boolean
'Pfad und Ursprungsdateiname setzen
SourcePath = "F:\Firma"
SourceName = "Wagenstand"
SourceExt = "Wagenstand.xls"
For Each WB In Application.Workbooks
If WB.Path = SourcePath Then
If WB.Name = SourceName & SourceExt Then
'Ursprungstabelle ist schon geoeffnet
WarOffen = True
GoTo Aktualisieren
End If
End If
Next WB
'Ursprungstabelle noch nicht geoffnet, oeffne diese
Aktualisieren:
Application.EnableEvents = False
Application.DisplayAlerts = False
Workbooks.Open Filename:="F:\Firma\Wagenstand.xls"
Set WB = ActiveWorkbook
ThisWorkbook.Sheets("liste").Range("A8:a45", "e8:e45").Value = WB.Sheets(SourceName).Range("A8: _
a45", "e8:e45"). _
Value
ThisWorkbook.Sheets("liste").Range("j8:j45", "n8:n45").Value = WB.Sheets(SourceName).Range("j8: _
j45", "n8:n45"). _
Value
ThisWorkbook.Sheets("liste").Range("s8:s45", "w8:w45").Value = WB.Sheets(SourceName).Range("s8: _
s45", "w8:w45"). _
Value
If WarOffen = False Then
Application.EnableEvents = False
Application.DisplayAlerts = False
WB.Close False
Application.DisplayAlerts = True
Application.EnableEvents = True
End If
End Sub