Jemand von euch hat mir bei der Erstellung folgenden Makros geholfen, und jetzt möchte ich, dass beim "Speichern unter..." gleich der Dateiname aus den Zellen A12,E18,F18,G18 - Mit Unterstrichen dazwischen gespeichert wird.
Mein Makro:
Option Explicit
Sub DateiSpeichernUnter()
Dim DName As String
ChDir "C:\Dokumente und Einstellungen\FGruber\Eigene Dateien\Backstage\Ausgangs Rechnungen"
DName = Application.GetSaveAsFilename( _
fileFilter:="EXCEL Arbeitsmappe (*.xls), *.xls")
ActiveWorkbook.SaveAs Filename:=DName
Workbooks.Open Filename:="C:\Dokumente und Einstellungen\FGruber\Eigene Dateien\Vorlagen\Rechnung_Neu.xls"
ThisWorkbook.Close False
End Sub
Als VBA-anfänger für mich (noch) nicht lösbar...
Danke für eure Hilfe
Friedl