Dieses Forum nutzt Cookies
Dieses Forum verwendet Cookies, um deine Login-Informationen zu speichern, wenn du registriert bist, und deinen letzten Besuch, wenn du es nicht bist. Cookies sind kleine Textdokumente, die auf deinem Computer gespeichert werden. Die von diesem Forum gesetzten Cookies werden nur auf dieser Website verwendet und stellen kein Sicherheitsrisiko dar. Cookies aus diesem Forum speichern auch die spezifischen Themen, die du gelesen hast und wann du zum letzten Mal gelesen hast. Bitte bestätige, ob du diese Cookies akzeptierst oder ablehnst.

Ein Cookie wird in deinem Browser unabhängig von der Wahl gespeichert, um zu verhindern, dass dir diese Frage erneut gestellt wird. Du kannst deine Cookie-Einstellungen jederzeit über den Link in der Fußzeile ändern.

Datei automatisch im Monatsordner speichern
#1
Hallo zusammen,

für folgende Aufgabe bräuchte ich Hilfestellung! (die Googlesuche hat mir nicht wirklich geholfen)

Ich speichere meine Tabellenblätter mit folgendem Makro:

Sub SpeichernUnterHG()
ActiveSheet.Copy
ActiveWorkbook.SaveAs Filename:="Z:\Test\TestGegenstaende\Test_" & Range("B3").Value & "_" & Format(Now, "DD_MMM_YYYY_hhmm") & ".xlsx"
ActiveWorkbook.Close
end sub

Dieses makro möchte ich dahingehend erweitern, dass mir alle Dateien mit Datum Januar(Febr.,März……..), automatisch in einen entsprechenden Ordner Januar(Februar....) kopiert werden.
Ich hoffe, ich hab das einigermaßen verständlich beschrieben.


Für Vorschläge wäre ich euch dankbar!

Gruss turbo123
Antwortento top
#2
Hallo,
Sub SpeichernUnterHG()
Dim strM As String, strV As String
strV = "Z:\Test\TestGegenstaende\"
strM = Format(Date, "MMMM")
If Dir(strV & strM, vbDirectory) <> strM Then MkDir strV & strM
ActiveSheet.Copy
ActiveWorkbook.Close True, strV & strM & "\Test_" & Range("B3").Value & "_" & Format(Now, "DD_MMM_YYYY_hhmm") & ".xlsx"
End Sub
Gruß Uwe
Antwortento top
#3
Thumbs Up 
Hallo Uwe,

SUPER!!!!

das ist genau das, wonach ich suchte, vielen herzlichen Dank!!

Gruss Hubert
Antwortento top
#4
Hallo Uwe,

vielleicht kannst du mir ein weiteres mal helfen und zwar möchte ich dieses Skript um einen Unterordner erweitern, d.h. beim speichern des Monats möchte ich noch einen Unterordner mit erstellen!

hab das Skript abgeändert, aber irgendwie klappt das nicht!!

Sub SpeichernUnterMonatRG()
  Dim strM As String, strV As String
  strV = "Z:\Test\TestGegenstände\"
  strM = Format(Date, "MMMM")
  If Dir(strV & strM & "\Testordner\", vbDirectory) <> strM Then MkDir strV & strM & "\Testordner\"
  ActiveSheet.Copy
  ActiveWorkbook.Close True, strV & strM & "\Test_" & Range("B3").Value & "_" & Format(Now, "DD_MMM_YYYY_hhmm") & ".xlsx"
End Sub

Gruß Hubert
Antwortento top
#5
Hallo Hubert,

einfach schön eins nach dem anderen. Wink
Sub SpeichernUnterHG()
Dim strM As String, strV As String
strV = "Z:\Test\TestGegenstaende\"
strM = Format(Date, "MMMM")
If Dir(strV & strM, vbDirectory) <> strM Then
MkDir strV & strM
MkDir strV & strM & "\Testordner"
End If
ActiveSheet.Copy
ActiveWorkbook.Close True, strV & strM & "\Test_" & Range("B3").Value & "_" & Format(Now, "DD_MMM_YYYY_hhmm") & ".xlsx"
End Sub
Gruß Uwe
[-] Folgende(r) 1 Benutzer sagt Danke an Kuwer für diesen Beitrag:
  • ludof
Antwortento top
#6
Und erstens: trenne deine Daten nicht !
Zum übersetzen von Excel Formeln:

http://dolf.trieschnigg.nl/excel/index.p...gids=en+de
Antwortento top
#7
Hallo Uwe,

vielen Dank für deine Hilfe, passt super!!!!

Gruss Hubert
Antwortento top
#8
Hallo Uwe

Dein letzter Code gefällt mit sehr sehr gut.
Aber ändere ich dein Code um das er nicht eine xlsx sondern eine xlsm Datei speichert??
Antwortento top
#9
Hallo ludof,
Sub SpeichernUnterHG()
 Dim strM As String, strV As String
 strV = "F:\Uwe\Documents\Excel\Test\"
 strM = Format(Date, "MMMM")
 If Dir(strV & strM, vbDirectory) <> strM Then
   MkDir strV & strM
   MkDir strV & strM & "\Testordner"
 End If
 ActiveSheet.Copy
 ActiveWorkbook.SaveAs Filename:=strV & strM & "\Test_" & Range("B3").Value & "_" & Format(Now, "DD_MMM_YYYY_hhmm"), FileFormat:=52
 ActiveWorkbook.Close
End Sub
Siehe dazu auch hier: https://docs.microsoft.com/de-de/office/...ook.saveas

Gruß Uwe
[-] Folgende(r) 1 Benutzer sagt Danke an Kuwer für diesen Beitrag:
  • ludof
Antwortento top
#10
Hallo Uwe

Sorry für die späte Rückmeldung. Dein läuft nun wie ich es brauche.

Nochmals vielen lieben Dank für deine perfekte Hilfe
Antwortento top


Gehe zu:


Benutzer, die gerade dieses Thema anschauen: 1 Gast/Gäste