ich brauch noch einmal eine fachl. Unterstützung, danke im voraus !
Ich habe aus der Recherche mal ein Makro mit meinem Verständnis zusammengebastelt:
'----- Daten-Import durchführen ------------------------------
Private Sub CommandButton17_Click()
On Error Resume Next
Dim akw
akw = "Aktueller IMPORT für " 'akt.Datei
Dim mon As String
mon = Format(ActiveSheet.Cells(2, 15).Value, "mmm yy") 'Monatsname
Dim akwDt As String
akwDt = "Aktueller IMPORT für " & mon 'akt.Datei komplett mit Monat
Dim sPath As String
sPath = "H:\Verwaltung\Reporting\" & akwDt 'Verzeichnis
MsgBox "Es wird geprüft, ob das Update für den Monat: " & Chr(13) & Chr(13) _
& vbTab & Format(ActiveSheet.Cells(2, 15).Value, "mmm yy") _
& Chr(13) & Chr(13) & _
"im Verzeichnis: "" H:\Verwaltung\Reporting "" " _
& Chr(13) & Chr(13) & _
"vorhanden ist. " _
& Chr(13), 48, " Hinweis !"
'--------- prüfen ob Datei da ist ---------
If sPath "" Then
MsgBox "Datei: " & akwDt & Chr(13) & Chr(13) & _
" ist vorhanden "
Else
MsgBox "Datei: " & akwDt & Chr(13) & Chr(13) & _
" ist NICHT vorhanden "
End If
End Sub
gr. Kurt P