Ich brauche da wieder mal eure Hilfe für mein Problem.
Folgender Code bringt bei mir ein Laufzeitfehler 1004
Private Sub CommandButton3_Click()
Dim Pfad As String
Dim SpeicherName As String
Dim Speicherpfad As String
Pfad = Cells(1, 13)
Speicherpfad = Pfad
'aus Zelle I1+J1 wird Name erzeugt
SpeicherName = Speicherpfad & Range("I1") & Range("J1") '& ".xlsm"
ActiveWorkbook.SaveAs Filename:= _
SpeicherName & ".xlsm"
End Sub
Die Datei soll als xlsm mit Makros gespeichert werden. Wünschenswert wäre auch noch, dass nur die Blätter "Rechnung", "Rechnung Seite 1" und "Rechnung Seite 2" gespeichert werden. Ist das noch in den obigen Code einfügbar?
Danke schon mal für eure Bemühungen.
Gruess Dani