mit diesem Makro versuche ich mit speichern unter zu arbeiten. Bis zu einem gewissen punkt klappt das auch ...
Sub SpeichernUnterDialogAufrufen
Range("T1:X1").Select
fileSaveName = Application.GetSaveAsFilename("\\Vordrucke\Vordrucke versendete Faxe 2012\" & _
Worksheets("Blatt02").Range("O6") & ".xls")
If fileSaveName False Then
ActiveWorkbook.SaveAs fileSaveName
End If
End Sub
der Ordner wo gespeichert werden soll wird auch gefunden - was nicht gemacht wird - der Name der auf dem Blatt02 in der Zelle O6 mit verketten "zusammen gebaut" wird, erscheint nicht automatisch in dem Feld Dateiname:Gruß Peter