Überprüfen auf das Vorhandensein einer Datei (Microsoft Excel)
John hat eine Spalte mit invoice Zahlen in einem Arbeitsblatt. Er hat ein Verzeichnis im Netzwerk, in dem Mitarbeiter ein PDF der tatsächlichen Rechnung speichern und es mit derselben Rechnungsnummer benennen, die im Arbeitsblatt angegeben ist. Jede Rechnungsnummer im Arbeitsblatt sollte eine entsprechend benannte PDF-Datei im Verzeichnis im Netzwerk enthalten. John sucht in Excel nach einer Möglichkeit, zu überprüfen, ob für jede Rechnungsnummer tatsächlich ein PDF vorhanden ist.
Es gibt keine Möglichkeit, dies mit integrierten Excel-Befehlen zu tun. Sie können jedoch ein Makro erstellen, das die Überprüfung für Sie übernimmt. Betrachten Sie beispielsweise die folgende einfache benutzerdefinierte Funktion:
Function FileExists1(sPath As String) FileExists1 = Dir(sPath) <> "" End Function
Die Routine gibt einfach einen True- oder False-Wert zurück, je nachdem, ob die angegebene Datei vorhanden ist. Der an die Funktion übergebene Wert muss einen vollständigen Pfad und einen Dateinamen enthalten. Wenn sich die Dateispezifikation (einschließlich des Pfads) beispielsweise in Zelle A1 befindet, können Sie in einer Zelle Folgendes verwenden:
=FileExists1(A1)
Möglicherweise möchten Sie jedoch nicht den vollständigen Pfadnamen in die Zelle einfügen. In diesem Fall können Sie es in der tatsächlichen Formel folgendermaßen angeben:
=FileExists1("c:\your\path\here\" & A1 & ".pdf")
Natürlich können Sie stattdessen den Pfad in der benutzerdefinierten Funktion angeben:
Function FileExists2(sFile As String) sPath = "c:\your\path\here\" & sFile & ".pdf" FileExists2 = Dir(sPath) <> "" End Function
Mit einer solchen Funktion können Sie leicht eine Formel in Ihrem Arbeitsblatt erstellen, die alle im Verzeichnis fehlenden Rechnungen „kennzeichnet“:
=IF(FileExists2(A1),"","Missing Invoice")
_Hinweis: _
Wenn Sie wissen möchten, wie die auf dieser Seite (oder auf einer anderen Seite der ExcelTips-Websites) beschriebenen Makros verwendet werden, habe ich eine spezielle Seite vorbereitet, die hilfreiche Informationen enthält.
ExcelTips ist Ihre Quelle für kostengünstige Microsoft Excel-Schulungen.
Dieser Tipp (7402) gilt für Microsoft Excel 2007, 2010 und 2013. Eine Version dieses Tipps für die ältere Menüoberfläche von Excel finden Sie hier: