speichern unter immer Inhalt 1. Arbeitsmappe
09.01.2006 08:51:37
Bommi
Wollte ein Formular mit Makro unter Angabe von Datum und dem Inhalt einer Zelle
in einem Ordner abspeichern. Funktioniert mit meinem Code soweit ganz gut.
Pfad wird übernommen.Jede Speicherung neuer Name.Bei 1. Speicherung steht
auch der richtige Inhalt in der Arbeitsmappe. Jede weitere Speicherung Name
der Mappe richtig geändert, Inhalt immer von der 1.Mappe.
Kann mir geholfen werden?
Sub speichern_unter()
Dim strPath As String
strPath = "U:\Test\"
strPath = strPath & Format(Date, "yymmdd") & "_" & Sheets("Erfassungsbogen").Range("B16") & ".xls"
ThisWorkbook.SaveAs strPath
End Sub
Vielen Dank
Bommi