Fehler im VB Code
04.02.2005 12:08:35
Slugger
also der Code durchsucht eine Spalte B nach kompletten Verzeichnissnamen (steht fest drin). Danach gibt er per MSGboxen die Namen nacheinander aus. Als nächstes vergleicht er die Dateinamen mit einem Verzeichniss und soll feststellen ob diese Datei vorhanden ist. Macht er aber nicht. Hier der Code. Hoffe es findet jemand den Fehler.
Private Sub CommandButton1_Click()
Dim i As Integer
Dim k As Integer
Dim suchwort As String
Dim gefunden As Boolean
Dim anzahlzellen As Long
Dim anz As Integer
anzahlzellen = Worksheets(2).UsedRange.Rows.Count
For i = 1 To Worksheets(2).UsedRange.Rows.Count
suchwort = Cells(i, 2).Value
MsgBox suchwort
With Application.FileSearch
.NewSearch
.LookIn = "h:\ft13\berichte\artikeldatenbank\backup1"
.FileType = msoFileTypeExcelWorkbooks
.Filename = suchwort
.SearchSubFolders = True
.Execute
anz = .FoundFiles.Count
If anz = 0 Then
MsgBox "keine Datei vorhanden"
ElseIf anz > 1 Then
MsgBox "Es wurde die Datei gefunden"
Else
MsgBox "Datei in Zeile " & i & "Datei namens " & suchwort & " gefunden"
End If
End With
Next i
End Sub
gruß Slugger
Anzeige