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
Obwohl in dem Verzeichnis die Datei liegt, sagt mir die Box, "Datei ist nicht vorhanden". 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?