Gruppe
Datei
Problem
Die in Zelle B1 genannte Arbeitsmappe soll ohne Neuberechnung und ohne Aktualisierung evtl. vorhandener Links geöffnet werden.
StandardModule: Modul1
Sub Oeffnen()
Dim vStatus As Variant
vStatus = Application.Calculation
Application.Calculation = xlCalculationManual
Workbooks.Open _
Filename:=Range("B1").Value, _
updatelinks:=False
Application.Calculation = vStatus
End Sub