VBA-Forum - Das Forum zu Microsoft VBA

Ansicht des Beitrags:

Von: Officer_Bierschnitt	Datum: 04.01.2017 09:51:30	Views: 1250	Rating:	Antwort:
Thema: Ordnerstruktur erstellen
Hallo, ich habe in einer Abt. ein Makro laufen, da gibt es einen Ordner für das Jahr, darin 12 für die Monate, darin einen für jeden Tag und darin die auszulesenden Listen. In der Vergangenheit war es nun leider so, dass die es immer wieder nicht auf die Reihe gebracht haben, die Monate richtig zu schreiben bzw. den Namen einfach immer genauso zu formatieren wie den Monat davor, das gleiche mit den Tagesordnern ... darum hab ich jetzt beschlossen, ein Makro zu schreiben, das automatisch all diese Ordner anlegt. Dann können sie höchstens noch ihre Listen in den falschen Tagesordner legen, aber das müsste doch möglich sein, das aktuelle Datum zu erkennen ... sorry, ich bin etwas zynisch, ich weiß, aber hier arbeiten wirklich solche Genies ;-) Meine Frage ist: Wieso funktioniert dieser Code nicht, den ich an anderer Stelle schon verwendet hab - bzw., er funktioniert, die If-Klausel wird aber übersprungen. Sub Ordnerstruktur() Ordner_Jahr = Year(IIf(Weekday(Date) = 2, (Date - 3), (Date - 1))) Debug.Print Ordner_Jahr 'Jahresordner erstellen If Dir(Ordner_Jahr, vbDirectory) = "" Then MkDir Ordner_Jahr End If End Sub Eine Vermutung hab ich - ich muss dem Code ja irgendwie mitteilen, in welchem Dateipfad er diesen Ordner anlegen soll - wie mach ich denn das bitte? Gruß, Officer_Bierschnitt

Ihre Antwort

Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema:		Name:		Email:

Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen