Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Dateiendung .xls

Forumthread: Dateiendung .xls

Dateiendung .xls
18.09.2008 10:52:34
Ernst
Hallo Vba User !
wenn ich diesen Code ausführe funktioniert alles bis auf das die Sicherungs Kopie keine .xls Endung hat.
Woran kann das liegen ?

Private Sub CommandButton4_Click()
Dim JaNein As Variant, wks As Worksheet
JaNein = MsgBox("Sind Sie wirklich sicher ?", vbYesNo, "Sicherheitsabfrage")
If JaNein = 6 Then ' Ja
Set wks = Sheets("Untergestell")
With ThisWorkbook
.SaveCopyAs "x:\archiv\" & Left(.Name, Len(.Name) - 4) & Format(Now, "YYYYMMDDhhmmss")
End With
wks.Range("B3:C100,F3:G100,J3:K100").ClearContents
End If
End Sub


Wäre für Lösungsvorschläge dankbar
Lg.Ernst

Anzeige

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Dateiendung .xls
18.09.2008 10:58:33
Hoffi
Hallo Ernst,
laut dem Beitrag https://www.herber.de/forum/messages/1010570.html ist dein Problem doch gelöst oder?
sonst versuch dies:

.SaveCopyAs "x:\archiv\" & Left(.Name, Len(.Name) - 4) & Format(Now, "YYYYMMDDhhmmss") & ".xls"


Grüße
Hoffi

Anzeige
Danke ..
18.09.2008 11:04:00
Ernst
Hallo Super das funktioniert fehlerfrei Danke....
Lg.ERNST
;

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