Gruppen

Top Gruppen: Windows 7; Windows Vista; Windows XP; Textverarbeitung; Excel; DSL; Internet Browser; E-Mail/Outlook
Betriebsysteme: Windows classik; Linux; BS-Sonstige
Software: Datenbanken; Bildbearbeitung; Audio/mp3/Video; Security/Viren; SW-Sonstige
Hardware: Mainboard/CPU; Grafikkarten; Peripherie; Laptop/Notebook; HW-Sonstiges
Netzwerk: Telefon,ISDN,Modem; W-Lan; NW-Sonstiges
Programmierung: PHP,ASP,Perl...; Java,C++...; Webseiten/HTML
Sonstiges: PC-Sonstiges; Plauderecke; SN Intern; Test

/ Forum / Tabellenkalkulation

Tabellenkalkulation

Fragevon Handybike vom 11.05.2019, 12:32 Options

Daeien in einem Ordner überprüfen ob vorhanden

Hallo community,

ich bräuchte mal wieder etwas Hilfe.

Es geht darum, dass ich durch ein Makro überprüfen möchte ob bestimmte Dateien in einem Ordner vorhanden sind. Wenn ja soll das Makro was machen was schon läuft. Das Ganze soll einfach nur eine Sicherheit sein, weil das Makro sonst versucht die Dateien zu öffnen.

Also als Pfad: c:/thomas/files/

Dateien: DE_week.xls; CH_week.xls; HU_week.xls

Wenn noch fragen sind dann stellt sie einfach.

Und schonmal Danke für Eure Hilfe

Gruß Thomas

Antwort schreiben

Antwort 1 von coros vom 11.05.2019, 12:47 Options

Hallo Thomas,

sollte mit nachfolgendem Makro funktionieren. Kopiere es in ein StandardModul.

[b]Option Explicit

Sub Prüfen()
Dim Datei$
Datei = Dir("c:\thomas\files\" & "*.xls")
Do While Datei <> ""
If Datei = "DE_week.xls" Or Datei = "CH_week.xls" Or Datei = "HU_week.xls" Then
'Anstelle der Messagebox hier dann Dein Code, der ausgeführt werden soll.
MsgBox Datei & " vorhanden"
End If
Datei = Dir
Loop
End Sub[/b]

Bei Fragen melde Dich.

Solltest Du nicht wissen, wie Du den Code in Deine Datei bekommst, dann schau mal auf meiner HP in der Rubrik Anleitungen und dort dann in der Anleitungsnummer 3 nach. Dort stelle ich dazu eine bebilderte Anleitung zur Verfügung, die Dir sicherlich helfen wird.

MfG,
Oliver
_{Da hier der einzige Lohn für die Helfer eine Rückmeldung ist, wäre es nett, wenn Du ein}
^{Feedback abgeben könntest, ob der Lösungsvorschlag Dein Problem gelöst hat.}

Antwort 2 von Handybike vom 11.05.2019, 12:54 Options

WOW das war ja ne schnelle Antwort.

Ist es auch möglich diese Überprüfung für jede Datei einzeln zu machen, damit er mir sagen kann: Datei DE_week.xls fehlt.

Oder so?

Gruß Thomas

Antwort 3 von coros vom 11.05.2019, 13:00 Options

Hallo Thomas,

sollte mit nachfiolgendem Makro funktionieren.

[b]Option Explicit

Sub Prüfen()
Dim Datei$
Dim DE_week_vorhanden As Boolean, CH_week_vorhanden As Boolean, HU_week_vorhanden As Boolean
Datei = Dir("c:\thomas\files\" & "*.xls")
Do While Datei <> ""
If Datei = "DE_week.xls" Then
DE_week_vorhanden = True
End If
If Datei = "CH_week.xls" Then
CH_week_vorhanden = True
End If
If Datei = "HU_week.xls" Then
HU_week_vorhanden = True
End If
Datei = Dir
Loop
If DE_week_vorhanden = False Then MsgBox "Datei DE_week.xls fehlt"
If CH_week_vorhanden = False Then MsgBox "Datei CH_week.xls fehlt"
If HU_week_vorhanden = False Then MsgBox "Datei HU_week.xls fehlt"
End Sub[/b]

MfG,
Oliver
_{Da hier der einzige Lohn für die Helfer eine Rückmeldung ist, wäre es nett, wenn Du ein}
^{Feedback abgeben könntest, ob der Lösungsvorschlag Dein Problem gelöst hat.}

Antwort 4 von Handybike vom 11.05.2019, 13:03 Options

Doppel WOW,

nochmals Danke für die schnelle Hilfe. Kann es im Moment noch nicht testen, weil ich noch was anderes zu tun habe. Melde mich aber sobaldd ich es gestestet habe.

Gruß Thomas

Hinweis

Diese Frage ist schon etwas älter, Sie können daher nicht mehr auf sie antworten. Sollte Ihre Frage noch nicht gelöst sein, stellen Sie einfach eine neue Frage im Forum..

Neue Einträge

Tipp einschicken

News einschicken