Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
568to572
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
568to572
568to572
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

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

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

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige