Mehrere Variablen aus Dateinamen auslesen
16.07.2018 19:47:23
Elmar
ich hab ein Problem und komme nicht weiter....
Der folgende Code lädt mir eine Datei von einen Share, die im Namensteil das Wort "Belade" enthält. Den Code unten habe ich hier gefunden und der klappt auch gut.
Nun hab ich aber das Problem, dass ich zwei Variablen erkennen sollte, nämlich 1. enthält der Dateiname die Zeichenfoge "belade" und 2. enthält er auch weiter im Namen die Zeichenfolge "16Uhr".
Wie kann ich einbauen, dass das Makro nach beiden Variablen im Namen sucht und dann die Datei ggf. öffnet?
Danke schon mal für Eure Hilfe
Grüße aus Bayern
Elmar
Sub Laden_aus_eShare()
Dim lstrDatName As String
lstrDatName = Dir("\\isharenew.dhl.com\DavWWWRoot\sites\Nachtdatei\Freigegebene Dokumente\ _
Ablage Nachtdatei\" & "*Belade*.xlsx")
If lstrDatName "" Then
Workbooks.Open "\\isharenew.dhl.com\DavWWWRoot\sites\Nachtdatei\Freigegebene _
Dokumente\Ablage Nachtdatei\" & lstrDatName
lstrDatName = ""
Else
MsgBox "Datei nicht vorhanden"
Exit Sub
End If
End Sub