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 |