Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1740to1744
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Prüfen, ob die Dateien vorhanden sind?

Prüfen, ob die Dateien vorhanden sind?
21.02.2020 12:23:49
Sergej
Hallo Leute,
wie kann ich bitte per VBA überprüfen, ob die Dateien (vollständiger Pfad), die ich im Zellenbereich A3:A100 habe vorhanden sind?
Bsp. P:\Daten\Projekte\2020\201508 Grundschule Herder\Beispiel.txt
Wenn eine Datei nicht vorhanden ist, dann soll in einem MsgBox alle Dateien (ohne Pfad sprich nur Dateiname Bsp. Dokumentationsliste Berlin.xls) unterander angezeigt werden, die nicht gefunden wurden. Zusätzlich soll die fehlende Datei in der Tabelle sprich Zelle in rot eingefärbt werden.
Vielen herzlichen Dank im Voraus.
Gruß,
Sergej

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Prüfen, ob die Dateien vorhanden sind?
21.02.2020 12:26:23
onur
Schwer, ohne die Datei zu haben.
AW: Prüfen, ob die Dateien vorhanden sind?
21.02.2020 12:42:34
Rudi
Hallo,
teste mal:
Sub DateienPruefen()
Dim rngC As Range, objERR As Object, vntERR
Set objERR = CreateObject("scripting.dictionary")
Range("A3:A100").Font.ColorIndex = xlNone
For Each rngC In Range("A3:A100")
If Len(rngC) Then
If Len(Dir(rngC)) = 0 Then
vntERR = Split(rngC, "\")
objERR(vntERR(UBound(vntERR))) = 0
rngC.Font.Color = 255
End If
End If
Next rngC
If objERR.Count Then
MsgBox Join(objERR.keys, vbLf), , "Fehlende Dateien"
End If
End Sub

Gruß
Rudi
AW: Prüfen, ob die Dateien vorhanden sind?
21.02.2020 15:28:13
Sergej
Hallo Rudi,
Vielen herzlichen Dank...
Beste Grüße,
Sergej
Anzeige
AW: Prüfen, ob die Dateien vorhanden sind?
21.02.2020 12:48:33
MatthiasG
Hallo Sergej,
mein Vorschlag:

Sub TestVorhanden()
Dim r1 As Range, z As Range
Dim msg As String
Set r1 = Worksheets("Tabelle1").Range("A3:A100") ' anpassen
For Each z In r1
With z
If .Value  "" Then ' Leerzellen überspringen
If Dir(.Value) = "" Then
msg = msg & Mid(.Value, InStrRev(.Value, "\") + 1) & vbLf
.Interior.ColorIndex = 3
End If
End If
End With
Next z
If Len(msg) > 0 Then MsgBox msg, vbCritical, "Nicht gefunden:"
End Sub

Gruß Matthias
AW: Prüfen, ob die Dateien vorhanden sind?
21.02.2020 15:27:58
Sergej
Hallo Matthias,
Vielen herzlichen Dank...
Beste Grüße,
Sergej

310 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige