Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 23:47:55
Datum ausweisen, wenn definierte Summe erreicht ist
25.04.2024 21:40:53
Excel Datenquelle aus dem Web mit Anmeldung?
25.04.2024 21:21:16
Zellkommentar in UserForm anzeigen und bearbeiten
25.04.2024 21:13:13
Kalenderwochen addieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1804to1808
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1804to1808
1804to1808
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Prüfen, ob Datei existiert (Erweiterung)

Prüfen, ob Datei existiert (Erweiterung)
10.01.2021 21:15:31
Sergej
Hallo Leute,
mit dem Makro (s. unten) prüfe ich in der Spalte D, ob der Datei existiert. Die Einträge in der Spalte D bilden vollständigen Pfad incl. Dateiname. Bsp. M:\Vorlagen\BA-SAR01\Einstellungen\projects\Sanofi\18-LOG\08_Planunterlagen\E04\202008 Planungsgrundlage.xlsx
Soweit alles in Ordnung. Wenn die Datei gesuchte Datei im Verzeichnis nicht gefunden wird, dann soll im gleichem Verzeichnis nach *Planungsgrundlage*.xls* gesucht werden. Wenn eine Datei gefunden wird, dann soll der Name der Datei in Spalte E eingetragen werden. Wie ergänze ich das bitte im Code?
Sub DateienPruefen()
Dim r1 As Range, z As Range
Dim msg As String
Dim Letzte_In_A As Long
Letzte_In_A = Range("A65536").End(xlUp).Row
Set r1 = ActiveSheet.Range("D1:D" & Letzte_In_A)
Range("D1:D" & Letzte_In_A).Interior.ColorIndex = xlNone
For Each z In r1
With z
If .Value  "" Then
If Dir(.Value) = "" Then
msg = msg & Mid(.Value, InStrRev(.Value, "\") + 1) & vbLf
.Interior.ColorIndex = 22
End If
End If
End With
Next z
End Sub
Beste Grüße,
Sergej

25
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Prüfen, ob Datei existiert (Erweiterung)
10.01.2021 21:47:12
onur
Sollte funktionieren: 
If Dir(.Value) = "" Then
Else If Dir(replace(.Value,".xlsx","*.xls*") = "" Then
' Hier dein Code
z.offset(1,0)=Dir(replace(.Value,".xlsx","*.xls*")
end if

AW: Prüfen, ob Datei existiert (Erweiterung)
10.01.2021 22:11:23
Sergej
Hallo Onur,
ich habe es getestet und es funktioniert nicht wie erwartet. ;-)
Beispiel: In der Zelle D10 steht dies
M:\Vorlagen\BA-SAR01\Einstellungen\projects\Sanofi\18-LOG\08_Planunterlagen\E04\202008 Planungsgrundlage.xlsx
Die Datei existiert tatsächlich nicht und wird entsprechend als Zelle eingefärbt. Soweit in Ordnung. Im Verzeichnis liegt aber eine Datei "Neu Planungsgrundlage Muster.xlsx".
Diese sollte dann in Spalte E als Dateiname eingetragen werden, weil das Wort "Planungsgrundlage" in Dateinamen vorkommt. 
Sub DateienPruefen()
Dim r1 As Range, z As Range
Dim msg As String
Dim Letzte_In_A As Long
Letzte_In_A = Range("A65536").End(xlUp).Row
Set r1 = ActiveSheet.Range("D1:D" & Letzte_In_A)
Range("D1:D" & Letzte_In_A).Interior.ColorIndex = xlNone
For Each z In r1
With z
If .Value  "" Then
If Dir(.Value) = "" Then
.Interior.ColorIndex = 22
ElseIf Dir(Replace(.Value, ".xlsx", "*.xls*")) = "" Then
z.Offset(1, 0) = Dir(Replace(.Value, ".xlsx", "*.xls*"))
End If
End If
End With
Next z
End Sub
Beste Grüße,
Sergej
Anzeige
AW: Prüfen, ob Datei existiert (Erweiterung)
10.01.2021 22:13:14
onur
Zitat: "Wenn die Datei gesuchte Datei im Verzeichnis NICHT gefunden wird, dann soll....."
AW: Prüfen, ob Datei existiert (Erweiterung)
10.01.2021 23:30:23
Sergej
Hallo Onur,
sorry, aber ich verstehe deine Antwort nicht. Ich denke, in meinem ersten Beitrag die Frage verständlich gestellt zu haben.
Beste Grüße,
Sergej
AW: Prüfen, ob Datei existiert (Erweiterung)
10.01.2021 23:37:21
onur
Hast Recht ! Sorry ! Hast du denn das 2. Makro genommen?
AW: Prüfen, ob Datei existiert (Erweiterung)
11.01.2021 23:23:09
Sergej
Hallo Onur,
vielen Dank für deine Mühe. Ich habe es jetzt hinbekommen:
Sub DateienPruefen()
Dim r1 As Range, z As Range
Dim msg As String
Dim Letzte_In_A As Long
Letzte_In_A = Range("A65536").End(xlUp).Row
Set r1 = ActiveSheet.Range("D1:D" & Letzte_In_A)
Range("D1:D" & Letzte_In_A).Interior.ColorIndex = xlNone
For Each z In r1
With z
If .Value  "" Then
If Dir(.Value) = "" Then
.Interior.ColorIndex = 22
Dateiname = Dir(Left(.Value, InStrRev(.Value, "\")) & "*" & "Planungsgrundlage"  _
& "*.xls")
.Offset(0, 1) = Dateiname
End If
End If
End With
Next z
End Sub
Beste Grüße,
Sergej
Anzeige
AW: Prüfen, ob Datei existiert (Erweiterung)
11.01.2021 23:24:44
onur
Und warum hast du den Code wieder verändert?
AW: Prüfen, ob Datei existiert (Erweiterung)
10.01.2021 22:09:27
onur
Besser so: 
dim x
If Dir(.Value) = "" Then
Else
x=replace(.Value,".xlsx","*.xls*"
If Dir(x) = "" Then
'Hier dein Code
z.offset(1,0)=x
end if
end if

AW: Prüfen, ob Datei existiert (Erweiterung)
11.01.2021 00:04:51
Sergej
Hallo Onur,
wie folgt ohne Erfolg getestet:
Sub DateienPruefen()
Dim r1 As Range, z As Range
Dim msg As String
Dim Letzte_In_A As Long
Dim x
Letzte_In_A = Range("A65536").End(xlUp).Row
Set r1 = ActiveSheet.Range("D1:D" & Letzte_In_A)
Range("D1:D" & Letzte_In_A).Interior.ColorIndex = xlNone
For Each z In r1
With z
If .Value  "" Then
If Dir(.Value) = "" Then
.Interior.ColorIndex = 22
Else
x = Replace(.Value, ".xlsx", "*.xls*")
If Dir(x) = "" Then
z.Offset(1, 0) = x
End If
End If
End If
End With
Next z
End Sub
Meiner Meinung nach, wird der Code wegen Else nicht weiter ausgeführt, wenn die Datei nicht gefunden wird.
Beste Grüße,
Sergej
Anzeige
AW: Prüfen, ob Datei existiert (Erweiterung)
11.01.2021 00:09:03
onur
Sorry - UNGLEICH statt GLEICH 
If Dir(x)  "" Then
z.Offset(1, 0) = x
End If

AW: Prüfen, ob Datei existiert (Erweiterung)
11.01.2021 08:28:56
Sergej
Hallo Onur,
das hat auch nicht geholfen. Ich kenn mich nicht so gut mit VBA aus, aber meiner Meinung nach, müsste die Prüfung nach weiteren Dateien *Planungsgrundlage*.xls* direkt nach .Interior.ColorIndex = 22 erfolgen, ohne Else.
Beste Grüße,
Sergej
AW: Prüfen, ob Datei existiert (Erweiterung)
11.01.2021 13:01:55
onur
Du hast doch geschrieben: "Wenn die Datei gesuchte Datei im Verzeichnis nicht gefunden wird, dann soll im gleichem..." - insofern hast du Recht, aber dein Code macht rein gar nix, wenn die erste Suche erfolgreich war.
Anzeige
AW: Prüfen, ob Datei existiert (Erweiterung)
11.01.2021 13:43:47
Sergej
Hallo Onur,
deswegen habe ich die Frage logischerweise gestellt, in der Hoffnung das mir jemand helfen kann. ;-)
Beste Grüße,
Sergej
AW: Prüfen, ob Datei existiert (Erweiterung)
11.01.2021 14:07:16
onur
Häääh?
Du schreibst doch: "mit dem Makro (s. unten) prüfe ich in der Spalte D, ob der Datei existiert.... Bsp. M:\Vorlagen\BA-SAR01\Einstellungen\projects\Sanofi\18-LOG\08_Planunterlagen\E04\202008 Planungsgrundlage.xlsx ...Soweit alles in Ordnung."
Laut deinem Post läuft dier Teil doch angeblich, aber da ist doch nix was in Ordnung wäre, da das Makro NIX macht. Soll der Code NUR prüfen, ob die erste Datei vorhanden ist und NIX unternehmen, wenn JA?
Reden wir irgendwie die ganze Zeit aneinander vorbei?
Anzeige
AW: Prüfen, ob Datei existiert (Erweiterung)
11.01.2021 21:07:17
Sergej
Hallo Onur,
ich versuche nochmals deutlicher ;-)
Die Einträge in der Spalte D bilden vollständigen Pfad incl. Dateiname. Bsp. M:\Vorlagen\BA-SAR01\Einstellungen\projects\Sanofi\18-LOG\08_Planunterlagen\E04\202008 Planungsgrundlage.xlsx
Wenn die Datei nicht existiert, dann wird die Zelle in Farbe 22 dargestellt, danach soll in diesem Fall direkt im selbem Verzeichnis geprüft werden, ob eine Datei mit Namen *Planungsgrundlage*.xls* existiert.
Falls ja, dann soll der Name dieser Datei in Spalte E eingetragen werden.
Beste Grüße,
Sergej
AW: Prüfen, ob Datei existiert (Erweiterung)
11.01.2021 21:10:35
onur
"Wenn die Datei nicht existiert, dann wird die Zelle in Farbe 22 dargestellt" OK soweit - aber, was soll passieren, WENN sie existiert? GAR NIX?
Anzeige
AW: Prüfen, ob Datei existiert (Erweiterung)
11.01.2021 21:22:31
Sergej
Hallo Onur,
wenn die Datei existiert, dann passiert nichts, dann wird die nächste Datei (nächste Zelle nach unten) geprüft.
Beste Grüße,
Sergej
AW: Prüfen, ob Datei existiert (Erweiterung)
11.01.2021 21:39:34
onur
Aha - Habe es endlich kapiert.
Dann natürlich so: 
For Each z In r1
With z
If .Value  "" Then
If Dir(.Value) = "" Then
.Interior.ColorIndex = 22
If Dir(Replace(.Value, ".xlsx", "*.xls*"))  "" Then
z.Offset(1, 0) = Dir(Replace(.Value, ".xlsx", "*.xls*"))
End If
End If
End If
End With
Next z

AW: Prüfen, ob Datei existiert (Erweiterung)
11.01.2021 21:53:18
Sergej
Hallo Onur,
diese Datei M:\Vorlagen\BA-SAR01\Einstellungen\projects\Sanofi\18-LOG\08_Planunterlagen\E04\202008 Planungsgrundlage.xlsx existiert nicht und wird in Farbe 22 dargestellt. Soweit alles in Ordnung.
Im Verzeichnis M:\Vorlagen\BA-SAR01\Einstellungen\projects\Sanofi\18-LOG\08_Planunterlagen\E04\ existiert aber eine Datei die so heißt "Neue Planungsgrundlage 2021.xls"
Diese Datei müsste in z.Offset(0, 1) eingetragen werden, weil Planungsgrundlage in Dateiname vorkommt. Was muss ich bitte ändern?
Beste Grüße,
Sergej
Anzeige
AW: Prüfen, ob Datei existiert (Erweiterung)
11.01.2021 21:54:16
onur
Siehe Nachfolge-Post von eben.
AW: Prüfen, ob Datei existiert (Erweiterung)
11.01.2021 21:49:36
onur
Sorry - SO: 

Dim x
For Each z In r1
With z
If .Value  "" Then
If Dir(.Value) = "" Then
.Interior.ColorIndex = 22
x=Replace(.Value, ".xlsx", "*.xls*")
If Dir(x)  "" Then
z.Offset(1, 0) = Dir(Replace(.Value, ".xlsx", "*.xls*"))
End If
End If
End If
End With
Next z

AW: Prüfen, ob Datei existiert (Erweiterung)
11.01.2021 22:03:47
Sergej
Hallo Onur,
in Spalte E wird nichts eingetragen. Ich sehe nicht das man in diesem Fall nach Datei mit *Planungsgrundlage*.xls* im Verzeichnis sucht, oder?
Beste Grüße,
Sergej
AW: Prüfen, ob Datei existiert (Erweiterung)
11.01.2021 22:08:06
onur
"Ich sehe nicht das man in diesem Fall nach Datei mit *Planungsgrundlage*.xls* im Verzeichnis sucht" ?
Nix für Ungut, aber bei "VBA nur mit Recorder" wundert mich das auch nicht. :)
Spass beiseite - poste endlich mal die (Beispiels-) Datei, damit ich das auch mal testen kann, was ich da schreibe. Sonst ist es wie Blindschach spielen (wie du siehst).
Anzeige
AW: Prüfen, ob Datei existiert (Erweiterung)
11.01.2021 22:55:12
onur
Da dir das anscheinend zu viel Arbeit ist, eine Datei zu posten, HABE ICH MIR DIE MÜHE gemacht, Eine zu bauen, damit ich testen kann! 
Sub DateienPruefen()
Dim r1 As Range, z As Range
Dim msg As String
Dim Letzte_In_A As Long
Dim x
Letzte_In_A = Range("A65536").End(xlUp).Row
Set r1 = ActiveSheet.Range("D1:D" & Letzte_In_A)
Range("D1:D" & Letzte_In_A).Interior.ColorIndex = xlNone
For Each z In r1
With z
If .Value  "" Then
If Dir(.Value) = "" Then
.Interior.ColorIndex = 22
x = Replace(.Value, ".xlsx", "*.xls*")
If Dir(x)  "" Then z.Offset(0, 1) = Dir(x)
End If
End If
End With
Next z
End Sub

Anzeige
AW: Prüfen, ob Datei existiert (Erweiterung)
11.01.2021 23:24:47
Sergej
Hallo Onur,
vielen Dank für deine Mühe. Ich habe es jetzt hinbekommen:
Sub DateienPruefen()
Dim r1 As Range, z As Range
Dim msg As String
Dim Letzte_In_A As Long
Letzte_In_A = Range("A65536").End(xlUp).Row
Set r1 = ActiveSheet.Range("D1:D" & Letzte_In_A)
Range("D1:D" & Letzte_In_A).Interior.ColorIndex = xlNone
For Each z In r1
With z
If .Value  "" Then
If Dir(.Value) = "" Then
.Interior.ColorIndex = 22
Dateiname = Dir(Left(.Value, InStrRev(.Value, "\")) & "*" & "Planungsgrundlage"  _
_
& "*.xls")
.Offset(0, 1) = Dateiname
End If
End If
End With
Next z
End Sub
Beste Grüße,
Sergej

305 Forumthreads zu ähnlichen Themen

Makro prüft ob Datei vorhanden ist.
Peter

Hallo!
Ich bin wirklich ratlos: in meinem Sheet wird eine spezielle Schriftart verwendet. Das Sheet wird leider nur dann leserlich angezeigt, wenn die Schriftart installiert ist. Deshalb soll ein Makro prüfen, ob die Datei "Grafikfonds.TTF im folgenden Ordner vorhanden ist C:\WINDOWS\Fonts\...
28.12.2008 01:46:00
Thread-ID: 1035513
3 Beiträge
Anzeige
Prüfen ob Zelle vorhanden...
pervenches

Guten Tag
Diese Formel sollte überprüfen, ob die Zelle "Erfolg" mit Inhalt "2" vorhanden ist und falls ja den entsprechenden Wert ausgeben. Falls diese Zelle nicht vorhanden ist sollte Sie den Wert von "G1" ausgeben. Die Zelle ist nicht immer vorhanden, da es sich um eine Pivot-Tabelle han...
09.09.2009 09:02:19
Thread-ID: 1101377
5 Beiträge
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
Anzeige
Prüfen ob Schaltfläche vorhanden
walli

Guten Tag,
ALLEN ein frohes Weihnachtsfest !
Ich habe mal gestöbert und dies gefunden.
Ich möchte nur prüfen ob ein Schaltfläche mit der Nummer 10 vorhanden ist, das klappt so nicht.
Dim shShape As Shape
For Each shShape In Worksheets("Test").Shapes
If shShape.Name = "Sc...
25.12.2009 15:52:15
Thread-ID: 1125912
7 Beiträge
Prüfen ob Tabellen vorhanden
Kurt

Guten Morgen,
wünsche allen ein gesundes neues Jahr !
Danke für die bisherige Unterstützung !
Frage:
Ich habe eine Datei mit Tabellen die mit Monatsnamen hinterlegt
sind. (MMM)
Ich möchte prüfen ob ein Monat fehlt.
mfg Kurt P
05.01.2010 09:31:14
Thread-ID: 1127179
7 Beiträge
ControlPopup prüfen ob 2 mal vorhanden
marco

Hallo Kollegen,
Habe momentan ein problem mit der abfrage ob das popup vorhanden ist. Obwohl in der Menueleiste das Popup mit dem Namen "PT-Tool" vorhanden ist.
Popup wird ertellt.
Public Sub prcCreateButton() Dim myCommandBar As CommandBar Dim myCommandBarPopup As CommandBarContro...
28.01.2010 17:44:30
Thread-ID: 1133863
3 Beiträge
prüfen ob versch. Ziffern in Zellen vorhanden sind
Heinz

Hallo Excellenten,
viele Grüße an Alle an an diesem (im Süden) sonnigen Tag.
Mein Problem: Ich habe eine Spalte mit folgenden Zellen:
A1: 1;0000000 9; 10;000 14;00000000 23;0 25;0 27; 28; 29;0
A2: 00000000 9;00000000000000 24; 25;00000
A3: 00 3;0000000000000000 27;000
A...
08.04.2010 21:26:15
Thread-ID: 1150683
4 Beiträge
Überprüfen ob Tabellenblatt vorhanden ist
Ingo

Hallo zusammen,
hab folgendes Problem. Ich öffne nacheinander verschiedene Dateien um bestimmte Zellen auszulesen.
Wenn in der geöffneten Datei das Tabellenblatt mit dem Namen "Motor" nicht vorhanden ist sollen die nachfolgenden Schritte nicht bearbeitet werden. Irgendwie klappt das bei...
20.04.2010 11:44:29
Thread-ID: 1152802
3 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
2
1
4
1
5
6
6
2
3
2
3
3
2
4
6
6
3
3
2
3
3
3
7
4
4