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

Workbook als datum speichern

Forumthread: Workbook als datum speichern

Workbook als datum speichern
16.02.2005 16:57:18
louis
hallo forum,
ich habe folgenden code der zum schluss eine mappe mit dem namen einer variablen (b) speichert. Trage ich in die zelle D4 eine normale zahl ein zb 8 dann geht es ausgezeichnet. trage ich aber ein datum ein zb16.02.2005 speichert er mir die mappe zeigt mir aber anschliessend die fehlermeldung laufzeitfehler.

Private Sub CommandButton22_Click()
Unload Me
Cells.Select
Selection.Copy
b = Range("D4:D4").Value
Set Book = Workbooks.Add
Sheets.Select
Cells.Select
ActiveSheet.Paste
ActiveWorkbook.SaveAs Filename:=b
End Sub

was ist da faul?
Noch was, was heisst [Gruppe] nach dem mappennamen? Das erscheint immer wenn ich eine mappe per makro speichere.
danke für eure mühe!!!
mfg
louis
Anzeige

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Workbook als datum speichern
louis
ich habe den code so geändert und es funzt

Private Sub CommandButton22_Click()
Unload Me
Cells.Select
Selection.Copy
Set Book = Workbooks.Add
Sheets.Select
Cells.Select
ActiveSheet.Paste
Dim sFile As String, sPath As String
sPath = Application.DefaultFilePath & "\"
sFile = Range("D4").Value
sFile = Format(CDate(sFile), "ddmmyyyy") & ".xls"
ActiveWorkbook.SaveAs sPath & sFile
End Sub

muss man erst mal drauf kommen. ich brauch halt was länger.
mfg
louis
Anzeige
;

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige