Hallo Forum
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 RechnungSpeichernUnter()
Dim DName As String, aktDir As String
'aktDir = CurDir 'ggf. löschen**********************
ChDir "C:\Dokumente und Einstellungen\FGruber\Eigene Dateien\Backstage\Ausgangs Rechnungen"
ActiveSheet.Copy
DName = Application.GetSaveAsFilename( _
fileFilter:="EXCEL Arbeitsmappe (*.xls), *.xls")
'ChDir aktDir 'ggf. löschen**********************
ActiveWorkbook.Close
End Sub
Als VBA-Anfänger nicht ganz so einfach zu lösen.
Ich hoffe wieder einmal auf eure Hilfe
Dank im voraus
Friedl