Pfad suchen mit Dir
10.02.2003 15:47:23
Wolfgang
stricke gerade mein erstes Makro. Mit folgendem Code möchte ich feststellen ob eine Datei mit einem voreingestellten Namen aus "E19" vorhanden ist, wenn nein Meldung und End sonst öffnen und weiter. Was mache ich in der Dir-Zeile falsch? Oder gibt es eine bessere Routine?
Dim sFile As String
Dim rng As Range
sFile = Range("E19")
If Dir(sFile) = "" Then
Debug.Print sFile
MsgBox "Kann Datei '" & sFile & "' nicht finden -" _
& vbLf & "bitte Namen überprüfen und neu starten!"
Else
Workbooks.Open Filename:=Range("E19")
End If
Danke
Gruß
Wolfgang
Anzeige