Dateien finden
21.10.2002 16:05:06
Erik
Jetzt klappt es nur mit *.pyo
Hier meine Sub
Sub DateienFinden()
Dim iRow As Integer, iRowL As Integer
Dim sPathS As String
Dim sFileS As String
Dim Namevoll As String
Dim Herst_id As String
Dim matVerz As String
Namevoll = ActiveWorkbook.Name
Herst_id = Left(Namevoll, Len(Namevoll) - 4)
sPathS = Workbooks("Bilderfassung.xls").Worksheets("Einstellung").Range("B3") & Herst_id
iRowL = Cells(Rows.Count, 1).End(xlUp).Row
For iRow = 2 To iRowL
sFileS = sPathS & "\" & Cells(iRow, 11).Value & ".pyo"
If Dir(sFileS) = "" Then
Cells(iRow, 11).Interior.ColorIndex = 3
Else
Cells(iRow, 11).Interior.ColorIndex = 8
End If
Next iRow
End Sub
Danke erik
Anzeige