Ist bereits eine Excel-Datei geöffnet
26.10.2018 08:43:22
Marquardt
ich möchte bevor die Datei geöffnet wird prüfen, ob schon eine andere Datei geöffnet ist.
Dazu habe ich folgendes gefunden. Funktioniert aber nicht.
Hat jemand einen Tipp für mich?
Sub IstExcelGeöffnet()
Dim XL1 As Object
On Error Resume Next
Set XL1 = GetObject(, "Excel.Application")
If Err