gibt es die Möglichkeit eine Datei nicht nur beim Öffnen sondern auch zB jede Minute zu aktualisieren.
Über Unterstützung würde ich mich sehr freuen.
Hier ist der Code der beim Öffnen aktiv wird und dann zB jede Minute aktiviert werden soll:
Option Explicit
Private Sub Workbook_Open()
Dim wkb As Workbook
Dim blnOpen As Boolean
Application.ScreenUpdating = False
For Each wkb In Workbooks
If LCase(wkb.Name) = "Mittelwerte.xls" Then
blnOpen = True
Exit For
End If
Next wkb
On Error GoTo Ende
If Not blnOpen Then
Workbooks.Open ThisWorkbook.Path & "\Mittelwerte.xls", UpdateLinks:=False
ThisWorkbook.Sheets(1).Cells.Calculate
ActiveWorkbook.Close savechanges:=True
End If
Ende:
On Error Resume Next
Dim arr As Variant
Dim arr1 As Variant
End Sub
Kann hier jemand weiterhelfen
Gruß Peter