Private Sub Workbook_Open()
Dim wks As Worksheet
MsgBox "Abrechnungssoftware von © Gerhard" & vbLf & "Version 2.15 2013-2015"
End Sub
Private Sub Workbook_Open()
Dim wks As Worksheet
MsgBox "Abrechnungssoftware von © Gerhard" & vbLf & "Version 2.15 2013-2015"
End Sub
Private Sub Workbook_Open()
'* H. Ziplies *
'* 07.04.2011 *
'* erstellt von HajoZiplies@web.de *
'* http://Hajo-Excel.de/
Dim StDatei As String ' Variable für Dateinamen
Dim StPhad As String ' Variable für Pfad
StDatei = ThisWorkbook.Name ' Dateiname auf Variable schreiben
StPhad = ThisWorkbook.Path ' Pfad auf Variable schreiben
Dim StDateiV As String ' Dateiname Neu
' überprüfen ob Sicherheitskopie schon vorhanden
' nur notwendig falls Datei in der selben Minute nochmal geöffnet wird
' von Berti Koern
Dim Fso As Object
StDateiV = Format(Now, "YY-MM-DD") & "_" & Format(Now, "hh-mm") & "_" & StDatei
Set Fso = CreateObject("Scripting.FileSystemObject")
If Fso.FileExists(StPhad & "\" & StDateiV) Then
' vorhandene Arbeitsmappe löschen, wird nicht in den Papierkorb verschoben
Kill StPhad & "\" & StDateiV
End If
' es werden als Trennzeichen keine Punkte verwendet
' ich bin der Auffassung im Dateinamen sollte es nur einen Punkt geben
' die Reihenfolge Jahr, Monat und Tag hat den Vorteil,
' die Sicherungen von folgenden Tagen stehen im Windows Explorer hintereinander
ActiveWorkbook.SaveCopyAs FileName:=StPhad & "\" & StDateiV
End Sub
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen