Private Sub Workbook_Open()
Application: Sheets("Tabelle1").Activate
If ThisWorkbook.ReadOnly = True Then
UpdateTimer
End If
End Sub
Sub UpdateTimer()
Application.OnTime (Now() + TimeValue("00:00:25")), "DieseArbeitsmappe.UpdateTimer"
On Error Resume Next
ThisWorkbook.UpdateFromFile
End Sub
Kann mir jemand helfen ? :)