Datei vorhanden?
04.08.2015 17:49:07
Allo
ich habe folgenden Code:
Private Sub cmdkey_Click()
Dim dateiname As String
Set myrange = Range("Monatsverzeichnis")
cb2 = Sheets(4).[e5]
cb1 = Sheets(5).[e5]
p = Worksheets(9).Cells(2, 6) & Application.PathSeparator & cb2
p = p & Application.PathSeparator & Application.WorksheetFunction.VLookup(cb1, myrange, 2, _
False)
dateiname = p & Application.PathSeparator & "AW-" & cb1 & ".xia"
If Dir("p\*.xia") Then
MsgBox "Datei ist vorhanden"
Else
MsgBox "Datei ist nicht vorhanden"
End If
End Sub
gebe ich anstatt p den genauen Pfad an, funktioniert es.
Wenn ich mir über eine msgbox p anzeigen lasse ist der Wert genauso wie er sein muss.
Wo liegt denn mein Fehler?