Im unteren Makro speichere ich die Datei unter einen neuen Namen.
Funktioniert auch soweit.
Nur sollte es immer im selben Ordner,wo sich die Datei befindet gespeichert werden.
Das funkt. nicht so richtig,oft wird die Datei in "Eigene Dokumente" gespeichert.
Wo liegt bitte der Fehler ?
Gruß
Heinz
Sub Speichern()
Dim strAktuellerPfad As String
Dim fileSaveName As String, strfileSaveName As String
Dim MyPfad As String
fileSaveName = "Schichtplan Kaltes Ende - " & Worksheets("Formel").Range("A1") & ".xls"
strAktuellerPfad = ActiveWorkbook.Path
ActiveWorkbook.SaveAs fileSaveName
MyPfad = IIf(Right$(ThisWorkbook.Path, 1) = Application.PathSeparator, ThisWorkbook.Path, _
ThisWorkbook.Path & Application.PathSeparator)
ActiveSheet.Shapes("AutoShape 37").Visible = False
End Sub