von Stephan » Do, 02.11.2017 08:41
z.B. kannst Du eine benutzerdefinierte Funktion mit DIr() schreiben, beispielsweise ungefähr so
Code: Alles auswählen
Function MeineSuche(Suchbegriff As String, Verzeichnis As String) As String
sPath = ConvertToURL(Verzeichnis)
sValue = Dir$(sPath & Suchbegriff, 0)
Do
If sValue <> "." and sValue <> ".." and sValue <> "" Then
MeineSuche = sValue 'nur erstes Ergebnis
Exit Function
End If
Loop Until sValue = ""
End Function
und in der Zelle so verwenden:
=WENN(MEINESUCHE("*Test*.*";"D:\")<>"";MEINESUCHE("*Test*.*";"D:\");"kein Datei")
Gruß
Stephan
z.B. kannst Du eine benutzerdefinierte Funktion mit DIr() schreiben, beispielsweise ungefähr so
[code]Function MeineSuche(Suchbegriff As String, Verzeichnis As String) As String
sPath = ConvertToURL(Verzeichnis)
sValue = Dir$(sPath & Suchbegriff, 0)
Do
If sValue <> "." and sValue <> ".." and sValue <> "" Then
MeineSuche = sValue 'nur erstes Ergebnis
Exit Function
End If
Loop Until sValue = ""
End Function
[/code]
und in der Zelle so verwenden:
=WENN(MEINESUCHE("*Test*.*";"D:\")<>"";MEINESUCHE("*Test*.*";"D:\");"kein Datei")
Gruß
Stephan