Hallo Leute mit folgendem Code speichere ich ein Rechnungsformular in einen bestimmte Ordner (in diesem Fall A). Klappt auch wunderbar.
Sub speichern()
Sheets("Rechnung").Copy
Application.DisplayAlerts = False
ActiveWorkbook.SaveAs "f:\eigene Dateien\a\" & Cells(1, 1) & Cells(2, 2).Value
Application.DisplayAlerts = True
ActiveWindow.Close
End Sub
Nun würde ich das ganze gern erweitern, indem ich in dem Ordner A noch 12 Ordner erstelle von Januar bis Dezember und das das Makro dann automatisch die Rechnung im entsprechenden Ordner abspeichert also z.B wenn es heute wäre im Ordner April.
Im voraus schon herzlichen Dank
Josi
Re: speichern
von: Holger Levetzow
Geschrieben am: 11.04.2002 - 12:09:27
erweitere z.B. so in der Art (Auszug)
Sub speichern()
m = Month(Date)
Select Case m
Case 1
monat = "Januar"
Case 2
monat = "Februar"
Case 3
monat = "März"
Case 4
monat = "April"
Case 5
monat = "Mai"
usw.
End Select
Sheets("Rechnung").Copy
Application.DisplayAlerts = False
ActiveWorkbook.SaveAs "f:\eigene Dateien\a\" & monat & "\" & Cells(1, 1) & Cells(2, 2).Value
Application.DisplayAlerts = True
ActiveWindow.Close
End Sub
Holger
Das Archiv des Excel-Forums
