Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
928to932
928to932
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Prüfen ob Datei vorhanden ist

Forumthread: Prüfen ob Datei vorhanden ist

Prüfen ob Datei vorhanden ist
30.11.2007 18:31:00
Mister
Guten Abend,
ich möchte aus einer Excel Datei heraus prüfen ob sich eine bestimmte Datei (test.pdf) im gleichen Ordner wie die Excel Datei befindet (Wenn Ja - Makro 1, wenn Nein - Makro 2).
Ich weiss, dass es zu diesem Thema einiges im Archiv gibt aber ich habe leider nichts passendes gefunden.
Gruß
Martin

Anzeige

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Prüfen ob Datei vorhanden ist
30.11.2007 19:12:34
Hajo_Zi
Hallo Martin,

Option Explicit
Sub Vorhanden_Datei()
'   Fehler falls LW nicht vorhanden
If Dir("L:\Eigene Dateien\Hajo\Adresse1.xls") Then
MsgBox "vorhanden"
Else
MsgBox "nicht vorhanden"
End If
End Sub
Sub Datei_vorhanden()
'   von Berti Koern
Dim Fso, Dateiname
Set Fso = CreateObject("Scripting.FileSystemObject")
Dateiname = "D:\Eigene Dateien\Hajo\Adresse.xls"
'   Egänzung öffnung Hajo
If Fso.FileExists(Dateiname) Then
Workbooks.Open Dateiname
End If
End Sub
Sub Vorhanden_Phad()
'   Fehler falls LW nicht vorhanden
If Dir("C:\Eigene Dateien\")  "" Then
MsgBox "vorhanden"
Else
MkDir "C:\Eigene Dateien\"
MsgBox "nicht vorhanden"
End If
End Sub
Sub Ordner_vorhanden()
'   von Berti Koern
Dim Fso, Ordnername
Set Fso = CreateObject("Scripting.FileSystemObject")
Ordnername = "C:\Eigene Dateien\"
'    MsgBox Fso.FolderExists(Ordnername)
If Fso.FolderExists(Ordnername) = False Then MkDir "C:\Eigene Dateien\"
End Sub



Anzeige
AW: Prüfen ob Datei vorhanden ist
30.11.2007 19:14:00
Original
Hi,
If Dir(ThisWorkbook.Path & "\test.pdf") = 0 Then
Call Makro2
Else
Call Makro1
End If
mfg Kurt

AW: Prüfen ob Datei vorhanden ist
30.11.2007 19:19:56
Mister
Guten Abend,
der Vorschlag von Kurt funktioniert perfekt!
Gruß
Martin
;

Forumthreads zu verwandten Themen

Prüfen ob Datei vorhanden
Marcus

Hallo,
kann mir jemand sagen, wie folgender Code aussehen muss:
Prüfen ob eine Datei, die ich als Bild in Excel mit VBA einfügen möchte, vorhanden ist.
If Dir(K:\Modelle Zeichnungen\Sal\Bilder TIF\...001.TIF) "" Then
Allerdings steht die Pfadangabe in der Zelle H2, da es verschi...
15.10.2009 07:05:26
Thread-ID: 1109751
2 Beiträge
VBA - Prüfen ob Schaltfläche vorhanden
WalterK

Hallo,
ich möchte prüfen, ob die Formularschaltfläche "WAHR" bereits vorhanden ist und dementsprechend eine MsgBox ausgeben. Irgendetwas klappt nicht, weiß aber nicht wo der Fehler ist. Option Explicit Sub Testmodul() Dim shShape As Shape With ActiveSheet If shShape.Name = "WAHR" Then MsgBo...
11.03.2012 15:44:26
Thread-ID: 1254585
8 Beiträge
vba; Abfrage, ob alle Dateien vorhanden sind...
Franz

Guten Morgen,
wie könnte ein VBA-Code aussehen, welcher mir
unter einer Dateinamensvorgabe prüft, ob diese alle
vorhanden sind und mir die Fehlenden benennt?
Wenn nicht alle Dateien vorhanden sind, sollte eine msgbox mit Frage "Abbruch?" erscheinen.
In einen Verzeichnis c:/...
04.04.2012 10:38:23
Thread-ID: 1257796
5 Beiträge
Anzeige
Überprüfen, ob Datei vorhanden ist
Tim

Hallo nochmal,
hier noch eine andere Frage - ich hoffe, Ihr könnt mir auch dabei weiterhelfen:
Ich habe eine Tabelle mit einer Liste von Dateinamen in Spalte B.
Die Dateien können verschiedene Formate sein, also Excel, Word, PDF etc. und befinden sich alle im gleichen Pfad / Ordn...
25.11.2012 10:40:19
Thread-ID: 1287915
2 Beiträge
Anzeige
Überprüfen ob Datei Vorhanden ist
Alex

Guten Tag zusammen ! Brauche Hilfe von euch um eine Aufgabe zu erledigen.
1. Ausgangssituation:
Code wird ausgeführt, ich starte Userform und nach Initialisieren (Zeileninhalte einer excel Tabelle werden eingelesen) steht in Userform in einer Textbox1 name einer Datei. Diese heißt "ABC...
20.02.2015 10:38:35
Thread-ID: 1410595
2 Beiträge
VBA - Prüfe ob Datei existiert, wenn ja dann copy
D.Müller

Hallo liebes Forum,
ich habe folgendes Problem:
Ich habe eine Userform erstellt in der man einen Namen eingibt und dann mit einem Button eine anfrage an Powershell gesendet wird. Das funktioniert auch alles super.
Nun soll noch folgendes hinzukommen.
Wenn man die Anfrage sendet...
23.04.2015 11:30:12
Thread-ID: 1422687
2 Beiträge
Prüfen ob Datei existiert
Thomas

Hallo zusammen,
ich habe folgenden Code der eine Kopie einer Datei im Unterverzeichnis "Archiv" des aktuellen Verzeichnisses erstellt. Wie kann ich hier eine Abfrage eibauen die prüft ob die Datei schon existiert und abfragt ob die Datei überschrieben werden soll.
Ich bekomme es aufgrun...
21.10.2015 09:50:28
Thread-ID: 1453442
3 Beiträge
Prüfen ob Datei vorhanden ist
Christian

Hallo Forum,
in einer EXCEL Datei habe ich alle Ordnernamen und deren Pfade welche sich in einem Hauptordner befinden.
Ich möchte nun per VBA prüfen, ob in diesen Ordnern jeweils eine bestimmte Datei (nicht EXCEL!)vorhanden ist.
Kann mir hier jemand einen VBA Befehl (oder Befehle)...
08.12.2015 14:56:10
Thread-ID: 1463090
4 Beiträge
VBA Tabellen erstellen und überprüfen ob vorhanden
Donald

Servus!
Nach anfänglichem Haareraufen komme ich nun zu euch, da das sicher ein Kinderspiel für euch ist. Folgende beiden Codes habe ich (teils glaube ich sogar hier aus dem Forum von Hajo_Zi anno 2012):
Sub NewSheets() For I = 1 To 12 Dim wsNew As Worksheet Set wsNew = Worksheets.Add Wi...
07.09.2016 12:56:27
Thread-ID: 1513332
5 Beiträge
Mit VBA überbrüfen ob eine Datei existiert
Werner Hassold

Hi Leute,
ich möchte mit VBA überbrüfen ob die Datei
BEISPIEL.XLS im aktuellen Verzeichnis vorhanden
ist und dann die Zelle [A1]
im Arbeitsblatt [Tabelle1] auslesen.
Kann mir jemand ein Beispiel geben?
Würde mich sehr freuen.
Danke für jede Hilfe.
Gruß, Werner
...
24.08.2002 11:47:21
Thread-ID: 152211
3 Beiträge
Vor Txt-Datei-Erzeugung prüfen ob Datei existiert
Markus

Hallo,
ich verwende folgenden Code, um ein Logfile als .txt-Datei zu erzeugen.
Soweit funktioniert alles gut.
Kann mir jemand sagen, wie ich prüfen kann, ob im Zielordner schon eine Datei mit dem gleichen Namen existiert, damit ich die Datei nur erzeuge, wenn das noch nicht der F...
25.04.2017 13:34:26
Thread-ID: 1554646
4 Beiträge
Anzeige
Vor Txt-Datei-Erzeugung prüfen ob Datei existiert
Markus

Hallo,
ich verwende folgenden Code, um ein Logfile als .txt-Datei zu erzeugen.
Soweit funktioniert alles gut.
Kann mir jemand sagen, wie ich prüfen kann, ob im Zielordner schon eine Datei mit dem gleichen Namen existiert, damit ich die Datei nur erzeuge, wenn das noch nicht der F...
25.04.2017 20:37:22
Thread-ID: 1554731
3 Beiträge
Anzeige
Anzeige

Infobox / Tutorial

Prüfen, ob eine Datei in Excel vorhanden ist

Schritt-für-Schritt-Anleitung

Um in Excel mit VBA zu prüfen, ob eine Datei vorhanden ist, kannst Du folgenden Code verwenden:

Sub DateiPruefen()
    Dim Dateiname As String
    Dateiname = ThisWorkbook.Path & "\test.pdf" ' Pfad zur Datei

    If Dir(Dateiname) = "" Then
        Call Makro2 ' Datei existiert nicht
    Else
        Call Makro1 ' Datei existiert
    End If
End Sub

Dieser VBA-Code prüft, ob die Datei test.pdf im gleichen Verzeichnis wie die Excel-Datei vorhanden ist. Wenn die Datei nicht existiert, wird Makro2 aufgerufen, andernfalls Makro1.

Häufige Fehler und Lösungen

  1. Fehler: "Datei nicht gefunden"

    • Lösung: Überprüfe den Pfad zur Datei. Stelle sicher, dass der Pfad korrekt ist und die Datei tatsächlich an diesem Ort liegt.

  2. Fehler: "Makro nicht definiert"

    • Lösung: Stelle sicher, dass die Makros Makro1 und Makro2 korrekt definiert sind und keine Schreibfehler enthalten.

Alternative Methoden

Neben der Verwendung von Dir, gibt es auch die Möglichkeit, die FileSystemObject-Klasse zu verwenden, um zu prüfen, ob eine Datei vorhanden ist. Hier ein Beispiel:

Sub DateiVorhandenMitFSO()
    Dim Fso As Object
    Dim Dateiname As String

    Set Fso = CreateObject("Scripting.FileSystemObject")
    Dateiname = ThisWorkbook.Path & "\test.pdf"

    If Fso.FileExists(Dateiname) Then
        Call Makro1
    Else
        Call Makro2
    End If
End Sub

Diese Methode bietet mehr Flexibilität und kann auch für weitere Dateimanipulationen verwendet werden.

Praktische Beispiele

Angenommen, Du möchtest beim Öffnen Deiner Excel-Datei automatisch prüfen, ob eine bestimmte Datei existiert. Du könntest den folgenden Code im Workbook_Open-Ereignis verwenden:

Private Sub Workbook_Open()
    If Dir(ThisWorkbook.Path & "\test.pdf") = "" Then
        MsgBox "test.pdf nicht gefunden!"
    Else
        MsgBox "test.pdf ist vorhanden."
    End If
End Sub

Dieses Beispiel zeigt eine einfache Benachrichtigung, basierend auf dem Vorhandensein der Datei.

Tipps für Profis

  • Verwende immer vollständige Dateipfade, um Verwechslungen zu vermeiden.
  • Berücksichtige mögliche Dateiendungen (.pdf, .xls, .docx), wenn Du nach verschiedenen Dateitypen suchst.
  • Füge Fehlerbehandlungsroutinen in Deine Makros ein, um unerwartete Situationen abzufangen.

FAQ: Häufige Fragen

1. Wie kann ich prüfen, ob ein Ordner vorhanden ist? Du kannst den gleichen Ansatz wie bei Dateien verwenden, aber die Methode FolderExists der FileSystemObject-Klasse nutzen.

2. Welche Excel-Version wird benötigt? Die oben genannten VBA-Codes sind in Excel 2010 und späteren Versionen funktionsfähig.

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige