AW: Verzeichnisname in Makro aus Zelle beziehen?
26.09.2005 20:22:35
Klaus
Hallo Andreas,
ich weiß nicht, ob ich dich richtig verstanden habe, aber probier mal diesen Code:
Sub ArbeitsmappeSpeichern()
Dim Pfad As String, Datumszelle As String, Dateiname As String
Dim Monatsname As String, Datum, Monat
Datumszelle = "A1"
Pfad = "C:\Berichte\"
Dateiname = "\Bericht "
Datum = Range(Datumszelle)
Monat = Month(Datum)
Select Case Monat
Case 1: Monatsname = "Januar"
Case 2: Monatsname = "Februar"
Case 3: Monatsname = "März"
Case 4: Monatsname = "April"
Case 5: Monatsname = "Mai"
Case 6: Monatsname = "Juni"
Case 7: Monatsname = "Juli"
Case 8: Monatsname = "August"
Case 9: Monatsname = "September"
Case 10: Monatsname = "Oktober"
Case 11: Monatsname = "November"
Case 12: Monatsname = "Dezember"
End Select
ActiveWorkbook.SaveAs Filename:=Pfad & Monatsname & _
Dateiname & Datum & ".xls", FileFormat:=xlNormal
End Sub
Die Prozedur schaut im aktiven Blatt in Zelle A1 nach dem Datum. Daraus wird der Monatsname ermittelt, um in dem entsprechenden Ordner gespeichert zu werden.
Beispiel:
In Zelle A1 steht das Datum 10.05.2005. Der ermittelte Monat ist Mai, die Datei wird nun unter "C:\Berichte\Mai\Bericht 10.05.2005.xls" abgespeichert.
Die Datumszelle, der Pfad und der Dateiname kann angepasst werden, dass Datum wird automatisch mit in den Dateinamen eingebaut.
WICHTIG: Die Ordner, in denen gespeichert werden soll, müssen schon vorhanden sein, da es sonst eine Fehlermeldung gibt !!! (In diesme Beispiel also z.B. der Ordner "Berichte" mit den Unterordnern Januar bis Dezember).
Gruß Klaus