Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Dateiname = Speicherdatum

Forumthread: Dateiname = Speicherdatum

Dateiname = Speicherdatum
16.07.2002 12:12:23
Markus Klement
Hallo,

ich möchte aus einer Datei das Blatt "Test" kopieren und als eigene Datei unter C:\ abspeichern und der Dateiname soll ein Text "Test" und das Speicherdatum sein.

Wie mache ich das??

Danke für Eure Hilfe
Markus

Anzeige

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Re: Dateiname = Speicherdatum
16.07.2002 12:20:01
L.Vira
Eigentlich sollte noch eine Fehlerroutine vorhanden sein, die
z.B. prüft, ob der Name schon vorhanden ist:

Option Explicit
Sub Test_kopieren()
Sheets("Test").Copy
ActiveWorkbook.SaveAs FileName:="C:\Test.xls" & Date
End Sub

Re: Dateiname = Speicherdatum
16.07.2002 12:20:33
@lex
Hallo markus !
Wie folgt:

ActiveWorkbook.SaveAs FileName:= _
"C:\Test" & Year(Now()) & Month(Now()) & Day(Now())

Anzeige
Re: Dateiname = Speicherdatum
16.07.2002 12:21:23
Jens Huthmann
Hallo Markus:

Sub BlattSpeichern()
Dim Datum, Std, Min, Sname

Datum = Format(Now, "dd.mm.yy")
Std = Hour(Now)
Min = Minute(Now)
Sname = "Test"

Sheets("test").Copy

ActiveWorkbook.SaveAs "c:\" & Sname & " " & Datum & " " & Std & "h" & Min & "min" & ".xls"

End Sub

Gruß
Jens

Anzeige
Re: Dateiname = Speicherdatum
16.07.2002 12:21:51
sam
Hi,

versuchs damit:

Viel Spaß,
Sam

Re: Dateiname = Speicherdatum
16.07.2002 12:32:18
L.Vira
bissel dynamischer:

Sub Aktives_Blatt_kopieren()
ActiveSheet.Copy
ActiveWorkbook.SaveAs "C:\" & ActiveSheet.Name & " " & Date &".xls"
ActiveWorkbook.Close
End Sub

DANKE AN ALLE!!!!
16.07.2002 12:50:01
Markus Klement
Das waren ja jede Menge Antworten und auch so schnell.

Vielen Dank
Markus

Anzeige

Forumthreads zu verwandten Themen

Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige