|
Hallo Mase
Danke für deine Antwort. Krieg ich irgendwie nicht in meine bestehendes Makro!?
Ich möchte, dass immer der aktuelle Pfad wo die Exceldatei abgespeichert ist, verwendet wird um den neuen Ordner zu erstellen.
Ordnerbeschriftung soll aus: Worksheets("Deckblatt").Range("J2") & "ABC" bestehen
Wo kommt die erstellung des Ordner und desen Beschriftung eingefügt?
Private Sub CommandButton7_Click()
' speichert Tabellenblatt als csv Datei im Auftragsordner ab
strName = ThisWorkbook.Path & "\" & Worksheets("Deckblatt").Range("J2") & "_ABCD_.csv"
Cells.Select
Selection.Copy
Workbooks.Add
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveSheet.SaveAs Filename:=strName, FileFormat:=xlCSV, CreateBackup:=False, Local:=True
ActiveWorkbook.Close False
ActiveWorkbook.Activate
Range("R8").Select
End Sub
|