ich hoffe, dass jemand ein ähnliches Problem hatte und auch eine passende Lösung fand.
Mein Problem:
Datei A hat eine Verknüpfung zu Datei B.
Wie kann ich erreichen, dass Datei A schließt, wenn Datei B nicht zur Verfügung steht?
Gruß
Rolf
Option Explicit
Sub Vorhanden_Datei()
' Fehler falls LW nicht vorhanden
If Dir(ThisWorkbook.Path & "\*.xls", vbNormal) = "" Then
MsgBox "nicht vorhanden"
Else
MsgBox "vorhanden"
End If
End Sub
Sub Datei_vorhanden()
' von Berti Koern
Dim Fso As Object, Dateiname As String
Set Fso = CreateObject("Scripting.FileSystemObject")
Dateiname = "L:\Eigene Dateien\Hajo\Adresse.xls"
' Ergänzung öffnung Hajo
If Fso.FileExists(Dateiname) Then
Workbooks.Open Dateiname
End If
Set Fso = Nothing
End Sub