Daten aus dem letzten arbeitsblatt auslesen
01.07.2003 20:10:04
Matthias C.
mit diesem Code speichere ich meine Arbeitsmappe und öffne eine neue (identische) Vorlage.
("
Sub Speichern()
Dim sFile As String, sPath As String
sPath = "C:\Ablage" & "\"
sFile = Range("d2").Value
sFile = Format(CDate(sFile), "dd.mm.yy") & ".xls"
ActiveWorkbook.SaveAs sPath & sFile Workbooks.Add Template:= _
"F:\Dokumente und Einstellungen\Administrator\Anwendungsdaten\Microsoft\Vorlagen\Vorlage.xlt"
End Sub
Die "alte" Datei mit dem niedrigeren Datum bleibt dabei geöffnet.
Meine Frage: Könnte man hiermit noch dafür sorgen, daß eine bestimmte Zeile (Ganzzahlen)komplett in die neue Vorlsge übernommen wird?
Bin VBA-Laie.
Vielen Dank für jede Anregung!
Gruß Matthias
Anzeige