Live-Forum - Die aktuellen Beiträge
Datum
Titel
17.10.2025 11:36:58
verschachteltes Dropdown-Menü
17.10.2025 10:28:49
Call Anweisung
16.10.2025 18:38:17
Zusammenfassung nach Personalnummer
16.10.2025 17:40:39
Rabattstafel
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
640to644
640to644
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Prüfen ob Datei existiert

Forumthread: Prüfen ob Datei existiert

Prüfen ob Datei existiert
27.07.2005 13:40:01
Krug
hallo leute,
könnt ihr einem unwissenden bitte erklären, wie ich folgendes problem löse:
in jeder zelle steht ein dateipfad, zb C:\ordner\datei.xls
wie kann ich nun prüfen lassen, ob diese dateien tatsächlich existieren?
und zwar so, dass wenn in A1 der pfad steht, soll er in B1 "JA" oder "NEIN" schreiben!
(wie) geht das?
danke schon mal im voraus!
grüße
berni
Anzeige

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Prüfen ob Datei existiert
27.07.2005 14:58:49
harry
hi,
so sollte es gehen:

Sub test()
Dim sFile  As String, iOpen As Integer
Dim fso
For i = 1 To ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row
Set fso = CreateObject("Scripting.FileSystemObject")
sFile = CStr(ActiveSheet.Cells(i, 1).Value)
If sFile = "" Then Exit Sub
iOpen = TestOpen(sFile)
Select Case iOpen
Case 0:
ActiveSheet.Cells(i, 2).Value = "JA"
Case 2:
ActiveSheet.Cells(i, 2).Value = "NEIN"
End Select
Next i
End Sub



Function TestOpen(sPath As String) As Integer
If Dir(sPath) = "" Then
TestOpen = 2
Else:
On Error GoTo ERRORHANDLER
Open sPath For Random Access Read Lock Read Write As #1
Close #1
End If
ERRORHANDLER:
If Err = 70 Then TestOpen = 1
End Function

liebe grüße,
harry
Anzeige
AW: Prüfen ob Datei existiert
27.07.2005 15:14:46
Berni
super, du bist ein genie!
danke
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige