Makro um Funktion erweitern
28.01.2004 00:07:53
Dieter
Meine Frage ist es Möglich das nur Werte und Formartierungen übernommen werden.
Nett wäre es wenn noch vor dem speichern eine InfoBox erscheinen würde wo der Speichername un Speicherort angezeigt wird.
MfG Dieter
Sub FileSpeichernUnter()
Dim DName As String, aktDir As String
ChDir "C:\temp" 'Speicherort
ActiveSheet.Copy
DName = "Blatt1" & " " & [A1] & " " & Format(Now, "DD-MM-YY") & ".xls"
ActiveWorkbook.SaveAs DName ' speichere unter Inhalt ZelleA1 Datum.xls
End Sub