Speichern unter variabelem Pfad und Namen
06.12.2013 13:23:06
Matthias
Ich habe ein Problem,
ich möchte ein einzelnes Arbeitsblatt einer Mappe unter einem variabelem Pfad und Dateinamen Speichern,
hierbei sollen die Makros der Mappe aber nicht mitgespeichert werden.
mein bisheriger Code sieht wie folgt aus:
Private Sub CommandButton1_Click()
Application.ScreenUpdating = False
Dim pfad As String
Dim name As String
name = ActiveSheet.Range("C12").Value & "_" & ActiveSheet.Range("A2").Value
pfad = ComboBox1.Value & "\" & ComboBox2.Value & "\" & ComboBox3.Value & "\" & ComboBox4.Value & _
_
ActiveSheet.Copy
ActiveWorkbook.SaveAs Filename:=pfad & name & ".xls\"
MsgBox " Die Datei wurde unter " & strPath & strFile & " gespeichert !"
Application.ScreenUpdating = True
End Sub
leider erhalte ich in der SaveAs. Zeile einen Laufzeitfehler.
Ich hoffe Ihr könnt mir helfen.
Gruß Matthias
P.S. Ihr könnt ruhig meinen ganzen Code über den Haufen werfen, Hauptsache es funktioniert.
Anzeige