title image


Smiley Re: Datei automatisch mit Datum und Zeit als Dateiname speichern
Hallo Helmut,



versuchs mal damit. Wenn es automatisch beim schliessen geschehen soll, dann musst du das unter "Diese Arbeitsmappe" in das Ereignis "Before_close" kopieren.

Den Pfad musst halt nach deinen Bedürfnissen anpassen.



Option Explicit

 

Sub DatumZeitSpeicherung()

On Error GoTo Speicherfehler

Dim Pfad As String

Dim Zusatz As String

Dim ErrControl As Integer

ErrControl = 0

NeuerVersuch:

Pfad = "C:\Eigene Dateien\"

Zusatz = Date & " " & Format(Time, "hh.mm")

ActiveWorkbook.SaveAs Pfad & Zusatz

Abbruch:

Exit Sub

 

Speicherfehler:

If ErrControl = 1 Then

    MsgBox "Ein anderer Fehler ist aufgetreten" & Chr$(13) & "Sicherung abgebrochen"

    GoTo Abbruch

End If

Select Case Err

Case 1004

    MkDir Pfad

End Select

ErrControl = ErrControl + 1

GoTo NeuerVersuch

End Sub





Code eingefügt mit Syntaxhighlighter 1.12



Schöne Grüsse aus dem derzeit sonnigen Atlanta.
Herzliche Grüsse

aus der Schweiz

Rainer

Kombiniere Geist und Google,...denn Wissen ist geil :-)



geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: