Prüfen ob Datei vorhanden ist

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Christian,
in einem Standardmodul (Menüleiste im VBA-Editor - Einfügen - Modul):

Option Explicit

Private Declare PtrSafe Function SearchTreeForFile Lib "imagehlp.dll" ( _
    ByVal RootPath As String, _
    ByVal InputPathName As String, _
    ByVal OutputPathBuffer As String) As Long

Private Const MAX_PATH As Long = 260&
Private Const FOLDER_PATH As String = "G:\Eigene Dateien\" ' Anpassen !!!!!!!!!!!!!!!!

Public Function SearchFile(ByVal pvstrFileName As String) As String

    Dim strTemp As String * MAX_PATH
    Dim lngReturn As Long

    lngReturn = SearchTreeForFile(FOLDER_PATH, "*" & pvstrFileName & "*", strTemp)

    If lngReturn = 0 Then
        SearchFile = "Nein"
    Else
        SearchFile = "Ja"
    End If
End Function

In der Tabelle:

	K	L	M
1	3717 Keeping Up with the Kardashians - Kylie Jenner 10-65		Nein
2	4256 Modern Family - Ariel Winter 11-238		Nein
3	4135 Shameless - Emma Kenney 11-117		Nein

Zelle	Formel
M1	=SearchFile(K1)
M2	=SearchFile(K2)
M3	=SearchFile(K3)

Nicht vergessen im Code den Pfad des übergeordneten Ordners anpassen !!!
Gruß
Nepumuk

Hallo Christian,
hier noch eine Idee, wie Du das machen könntest. Allerdings fehlt mir hier die Info, ob die Dateien auch wirklich so heißen, wie sie in Deiner Liste stehen?!


[+][-] 
Option Explicit

Sub Pruefen()
'Prüft, ob es Dateien zu den Einträgen gibt
 Dim sArr() As String, sDatei As String
 Dim sLWs As Variant
 Dim iZeile As Long, iGefunden As Long
 Dim iLW As Integer, iAnzFile As Integer

 sLWs = Array("D:&bsol;AZN&bsol;", "D:&bsol;AZN&bsol;Bilder&bsol;", "D:&bsol;AZN&bsol;Videos&bsol;")
 
'Alle Dateien in ein Array einlesen
 For iLW = 0 To UBound(sLWs)
  sDatei = Dir(sLWs(iLW) & "*.*")
  Do While sDatei <> ""
   ReDim Preserve sArr(iAnzFile)
   sArr(iAnzFile) = sDatei
   iAnzFile = iAnzFile + 1
   sDatei = Dir
  Loop
 Next iLW
 
'Jetzt checken, ob die in der Liste stehenden im Array sind
 On Error Resume Next
 With ActiveSheet
  For iZeile = 1 To .Cells(Rows.Count, "K").End(xlUp).Row
    iGefunden = 0
    iGefunden = Application.WorksheetFunction.Match(.Cells(iZeile, "K").Value & "*", sArr, 0)
    
    If iGefunden > 0 Then
     .Cells(iZeile, "M").Value = "ja"
    Else
     .Cells(iZeile, "M").Value = "nein"
    End If
  
  Next iZeile
 End With

End Sub

viele Grüße aus Freigericht
Karl-Heinz

Beliebteste Forumthreads (12 Monate)

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

310 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Prüfen ob Datei vorhanden ist

8 Beiträge zum Forumthread Beiträge zu diesem Forumthread

310 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread