Datei wird nicht gefunden, obwohl existent
14.07.2013 14:12:53
Markus
ich habe mir Folgendes Makro geschrieben, doch leider findet er die Datei nicht, obwohl sie in dem Ordner abgelegt ist. Datei ist Test.xls. Der Rest des Makros funktioniert so wie er soll.
Gruß Markus
Sub Test_finden()
Dim Datei As String
Datei = "Test"
Pfad = "C:\Test"
Suchen = Pfad & Datei & ".xls"
If Dir(Suchen) "" Then
MsgBox "Datei vorhanden"
Else
Pfad = Application.GetOpenFilename
End If
End Sub
Anzeige