Pfad mit Textbox.Value
04.09.2018 15:10:42
Felix
folgender Code, soll die Tabellenblätter A und B kopieren und als neue Datei speichern.
Dabei sollen die Inhalte von Textboxen mit in den Pfad eingebaut werden, so soll die Datei im Speicherpfad in den richtigen Ordner gespeichert werden.
So steht Textbox 2 für den OrdnerJahr, Textbox 3 für den Ordner Monat und Textbox4 für den Datentyp, Textbox 5 soll der Dateiname sein.
Leider funktioniert der Befehl nicht, weiß jemand Rat?
Sub Save ()
Worksheets(Array("A", "B")).Copy
ActiveWorkbook.SaveAs Filename:="\\C\Abgleich\ & TextBox2.Value\ & TextBox3.Value\ & TextBox4. _
Value" & TextBox5.Value, FileFormat:=xlExcel8, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, CreateBackup:=False
End Sub
Vielen DankFelix