Hallo!
Wie kann ich beim schleißen der Datei automatisch ein Backup der Datei erstellen lassen. Als Dateizusatz nach einem _ soll das Datum kommen.
Danke für Hilfe,
Daniel

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Sicherheitskopie beim schließen erstellen

27.07.2006 09:50:38

Matthias
AW: Sicherheitskopie beim schließen erstellen

27.07.2006 09:52:54

Daniel
AW: Sicherheitskopie beim schließen erstellen

27.07.2006 09:54:17

Matthias
Danke! So geht das wunderbar. o.T.

27.07.2006 09:58:48

Daniel
Danke f. Rückmeldung - geschlossen o.T.

27.07.2006 10:02:39

Matthias
AW: Sicherheitskopie beim schließen erstellen

27.07.2006 09:51:27

{mskro}

AW: Sicherheitskopie beim schließen erstellen

27.07.2006 09:50:38

Matthias

Hallo Daniel,
in DieseArbeitsmappe:


Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Dim fn As String
If IsBackup Then Exit Sub 'nur wenn dies nicht schon eine Backup-Datei ist:
With ThisWorkbook
fn = .Path & "\" & _
Left(.Name, Len(.Name) - 4) & "_" & Format(Date, "yy_mm_dd") & ".xls"
Application.DisplayAlerts = False
.SaveCopyAs fn
Application.DisplayAlerts = True
End With
End Sub
Private Function IsBackup() As Boolean
Dim l As Integer
Dim fn As String
fn = Space(12) & ThisWorkbook.Name
l = Len(fn)
IsBackup = Mid(fn, l - 6, 1) = "_" And _
Mid(fn, l - 9, 1) = "_" And _
Mid(fn, l - 12, 1) = "_"
End Function

Die Funktion IsBackup() prüft, ob die aktuelle Datei nicht bereits eine Kopie ist (wird anhand der Unterstriche im Dateinamen geprüft).
Gruß Matthias

AW: Sicherheitskopie beim schließen erstellen

27.07.2006 09:52:54

Daniel

Hallo Matthias,
danke für die schnelle Hilfe. was muss ich ändern, wenn es in diesem Pfad noch in den Ordner Backup soll? Also im gleichen Pfad in einen Ordner.
Gruß,
Daniel

AW: Sicherheitskopie beim schließen erstellen

27.07.2006 09:54:17

Matthias

Hallo Daniel,


With ThisWorkbook
fn = "D:Backup\" & _  '<<<<<< hier anpassen
Left(.Name, Len(.Name) - 4) & "_" & Format(Date, "yy_mm_dd") & ".xls"
Application.DisplayAlerts = False
.SaveCopyAs fn
Application.DisplayAlerts = True
End With

Gruß Matthias

Danke! So geht das wunderbar. o.T.

27.07.2006 09:58:48

Daniel

...

Danke f. Rückmeldung - geschlossen o.T.

27.07.2006 10:02:39

Matthias

AW: Sicherheitskopie beim schließen erstellen

27.07.2006 09:51:27

{mskro}

Hallo Daniel,
mit einem kleinen VBA.


Sub auto_close()
ActiveWorkbook.SaveAs ("d:\siko " & Date & ".xls")
End Sub

Gruss Manfred
Rückmeldung wäre nett!

Beliebteste Forumthreads (12 Monate)

Threadtitel

Lesezugriffe
excel wenn(finden dann)

33892
zelle färben wenn andere zelle wert

23315
excel text links von zeichen

16436

Weitere Forumthreads anzeigen

excel zeichen einfügen am anfang

15820

scrollen in excel nicht möglich

15740

formeln kopieren ohne anpassung der zellbezüge

15220

excel formel enthält

14059

excel wenn wert in zelle dann andere zelle kopieren

12159

excel ab bestimmten zeichen abschneiden

11872

excel erste ziffer entfernen

11300

excel summe zeigt 0

10470

excel zelle farbig wenn andere zelle text

10270

zählenwenns mit oder

9501

excel links zeichen abschneiden

9408

excel string enthält teilstring

9370

excel wenn leer dann leer lassen

9090

excel vba variable in zelle schreiben

8841

excel teil bis leerzeichen

8758

zählenwenn datumsbereich

8297

excel zelleninhalt in andere zelle übernehmen

8062

excel formel doppelte werte nur einmal zählen

8043

excel text ab bestimmten zeichen

7923

excel formel rechts ab zeichen

7867

wenn wert größer als und kleiner als dann

7813

letzte zeile vba

7718

excel datum und uhrzeit in einer zelle

7426

excel zellen ausblenden button

7303

cursor kreuz statt pfeil

7004

excel umrechnung minuten in stunden

7000

excel zelleninhalt ausblenden wenn

6981

excel aus kalenderwoche monat ermitteln

6944

excel summewenn nicht

6501

excel wenn datum älter als dann rot

6415

excel daten untereinander statt nebeneinander

6242

excel vba zellinhalt löschen

6043

wenn formel mit uhrzeit

5994

excel nur das erste wort einer zelle

5906

excel wenn wert negativ dann 0

5900

excel nur letzten 4 zeichen einer zelle

5900

excel shortcut blatt wechseln

5852

excel zahlen fortlaufend funktioniert nicht

5839

wenn mehrere zellen leer dann

5813

excel wenn wert in liste vorhanden dann

5799

@ in excel formel

5742

excel datei durch mich selbst gesperrt obwohl nicht geöffnet

5704

excel letzten buchstaben entfernen

5638

excel wenn zelle leer dann wert aus anderer zelle sonst

5573

sverweis summe aller werte

5553

excel wort in zelle suchen und ausgeben

5501

excel uhrzeit minuten addieren

5451

zählen wenn nicht leer

5378

excel vba suchen und anzeigen

5299

excel summewenns über mehrere spalten

5275

excel aus namen e mail adresse

5088

excel führende nullen entfernen formel

5086

excel vba abfrage ja nein

5068

sverweis nicht gefunden dann 0

5059

zelle färben, wenn andere zelle wert

5038

excel vba zellfarbe ändern

4997

buchstaben aus excel zelle entfernen

4978

wenn farbe dann

4961

excel wert aus anderer zelle übernehmen wenn bedingung erfüllt

4870

excel summewenn ungleich

4811

excel string enthält teilstring

4760

vba mit passwort schützen

4739

excel datum + monate

4733

excel formel anführungszeichen

4730

excel summe zwischen zwei datumsangaben

4726

excel zeichen finden von rechts

4685

vba if or mehrere bedingungen

4684

excel liniendiagramm mit mehreren linien

4654

excel datumsformat lässt sich nicht ändern

4631

excel bildgröße an zelle anpassen

4559

punkte entfernen excel

4552

excel erste vier zeichen löschen

4518

zeilenumbruch excel vba

4486

excel als text gespeicherte zahl in zahl umwandeln vba

4483

text aus anderer zelle übernehmen excel

4479

excel vba prüfen ob tabellenblatt existiert

4455

excel spaltennummer ermitteln in der ein wert steht

4425

excel zählen wenn enthält

4387

excel summe und runden in einer zelle

4362

excel datum automatisch einfügen bei eingabe

4353

makro stoppen

4349

durchschnitt aus prozentwerten

4343

excel kalenderwochen in datum umwandeln

4341

excel tabelle kopieren ohne inhalt

4329

vba excel userform schließen

4320

excel verketten mit datum

4315

excel aktuelle zeit

4313

excel vba verweis auf zelle anderes tabellenblatt

4275

wenn funktion zu viele argumente

4246

excel gruppen benennen

4236

excel wert in spalte suchen und zeile ausgeben

4235

excel gruppieren geht nicht

4232

excel dropdown leere zellen ignorieren funktioniert nicht

4206

vba zeilenumbruch

4205

excel blattschutz filtern erlauben

4092

excel umbruchvorschau ausblenden

4044

excel aktuelles jahr ausgeben

4007

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Threadtitel

Lesezugriffe
excel wenn(finden dann)

33892
zelle färben wenn andere zelle wert

23315
excel text links von zeichen

16436

Weitere Forumthreads anzeigen

excel zeichen einfügen am anfang

15820

scrollen in excel nicht möglich

15740

formeln kopieren ohne anpassung der zellbezüge

15220

excel formel enthält

14059

excel wenn wert in zelle dann andere zelle kopieren

12159

excel ab bestimmten zeichen abschneiden

11872

excel erste ziffer entfernen

11300

excel summe zeigt 0

10470

excel zelle farbig wenn andere zelle text

10270

zählenwenns mit oder

9501

excel links zeichen abschneiden

9408

excel string enthält teilstring

9370

excel wenn leer dann leer lassen

9090

excel vba variable in zelle schreiben

8841

excel teil bis leerzeichen

8758

zählenwenn datumsbereich

8297

excel zelleninhalt in andere zelle übernehmen

8062

excel formel doppelte werte nur einmal zählen

8043

excel text ab bestimmten zeichen

7923

excel formel rechts ab zeichen

7867

wenn wert größer als und kleiner als dann

7813

letzte zeile vba

7718

excel datum und uhrzeit in einer zelle

7426

excel zellen ausblenden button

7303

cursor kreuz statt pfeil

7004

excel umrechnung minuten in stunden

7000

excel zelleninhalt ausblenden wenn

6981

excel aus kalenderwoche monat ermitteln

6944

excel summewenn nicht

6501

excel wenn datum älter als dann rot

6415

excel daten untereinander statt nebeneinander

6242

excel vba zellinhalt löschen

6043

wenn formel mit uhrzeit

5994

excel nur das erste wort einer zelle

5906

excel wenn wert negativ dann 0

5900

excel nur letzten 4 zeichen einer zelle

5900

excel shortcut blatt wechseln

5852

excel zahlen fortlaufend funktioniert nicht

5839

wenn mehrere zellen leer dann

5813

excel wenn wert in liste vorhanden dann

5799

@ in excel formel

5742

excel datei durch mich selbst gesperrt obwohl nicht geöffnet

5704

excel letzten buchstaben entfernen

5638

excel wenn zelle leer dann wert aus anderer zelle sonst

5573

sverweis summe aller werte

5553

excel wort in zelle suchen und ausgeben

5501

excel uhrzeit minuten addieren

5451

zählen wenn nicht leer

5378

excel vba suchen und anzeigen

5299

excel summewenns über mehrere spalten

5275

excel aus namen e mail adresse

5088

excel führende nullen entfernen formel

5086

excel vba abfrage ja nein

5068

sverweis nicht gefunden dann 0

5059

zelle färben, wenn andere zelle wert

5038

excel vba zellfarbe ändern

4997

buchstaben aus excel zelle entfernen

4978

wenn farbe dann

4961

excel wert aus anderer zelle übernehmen wenn bedingung erfüllt

4870

excel summewenn ungleich

4811

excel string enthält teilstring

4760

vba mit passwort schützen

4739

excel datum + monate

4733

excel formel anführungszeichen

4730

excel summe zwischen zwei datumsangaben

4726

excel zeichen finden von rechts

4685

vba if or mehrere bedingungen

4684

excel liniendiagramm mit mehreren linien

4654

excel datumsformat lässt sich nicht ändern

4631

excel bildgröße an zelle anpassen

4559

punkte entfernen excel

4552

excel erste vier zeichen löschen

4518

zeilenumbruch excel vba

4486

excel als text gespeicherte zahl in zahl umwandeln vba

4483

text aus anderer zelle übernehmen excel

4479

excel vba prüfen ob tabellenblatt existiert

4455

excel spaltennummer ermitteln in der ein wert steht

4425

excel zählen wenn enthält

4387

excel summe und runden in einer zelle

4362

excel datum automatisch einfügen bei eingabe

4353

makro stoppen

4349

durchschnitt aus prozentwerten

4343

excel kalenderwochen in datum umwandeln

4341

excel tabelle kopieren ohne inhalt

4329

vba excel userform schließen

4320

excel verketten mit datum

4315

excel aktuelle zeit

4313

excel vba verweis auf zelle anderes tabellenblatt

4275

wenn funktion zu viele argumente

4246

excel gruppen benennen

4236

excel wert in spalte suchen und zeile ausgeben

4235

excel gruppieren geht nicht

4232

excel dropdown leere zellen ignorieren funktioniert nicht

4206

vba zeilenumbruch

4205

excel blattschutz filtern erlauben

4092

excel umbruchvorschau ausblenden

4044

excel aktuelles jahr ausgeben

4007

Sicherheitskopie beim schließen erstellen

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

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread