In der Spalte A einer Excel Tabelle stehen Namen, in einem Ordner liegen Bilder die Name.jpg heißen. In der Spalte B soll ein Kreuz hinter den Namen gemacht werden, die im Ordner vorhanden sind.
Danke im Voraus
Alex
Sub Abgleich()
Dim strName As String
Dim i As Integer
For i = 1 To 500
strName = Cells(i, 1).Value
If Dir(strName & ".xls") <> "" Then
Cells(i, 2).Value = "Treffer"
End If
Next i
End Sub