Supportnet / Forum / Tabellenkalkulation

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

Hallo Thomas,

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

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

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.}

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

Hallo Thomas,

sollte mit nachfiolgendem Makro funktionieren.

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

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.}

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

• Ordner erstellen
• Ordner aus der Partition C löschen
• ordner posteingang wiederherstellen
• Prog deinstalliert, noch Ordner vorhanden