Ich versuche bei unterstehenden Code eine Fehlermeldung ein zu bauen. Das heisst, wenn die Datei nicht vorhanden ist, soll in der ListBox1 "Keine Datei gefunden!" stehen. Ist die Datei vorhanden, soll es den Pfad anzeigen. So wie ich es bis jetzt gemacht habe, schreibt es mir immer "Keine Datei gefunden" zwei mal untereinander und den gefundene Pfad in die ListBox. Welchen Denkfehler mache ich?
Sub SearchFile()
Dim arr As Variant
Dim iCounter As Integer
Dim sPath As String
sPath = Range("B2").Value
If Dir(sPath, vbDirectory) "" Then
arr = InUnterVerzSuchen(sPath, "*.xls", vbNormal)
For iCounter = 1 To UBound(arr)
If Dir(arr(iCounter)) = Range("B1").Value Then
UserForm1.ListBox1.AddItem arr(iCounter)
Else
UserForm1.ListBox1.AddItem "Keine Datei gefunden!"
End If
Next iCounter
Else
MsgBox "Kein Ordner gefunden!"
End If
End Sub
Gruss Daniel