AW: setup
11.11.2005 16:26:07
Konni
Hallo Basti,
ich habe von Hajo nachstehenden Code erhalten. Die Tabelle wird beim Öffnen zuerst gespeichert, mit Datum, Uhrzeit und Nutzername auf dem aktuellen PC. Die verschiedenen Ablageordner musst Du leider selbst einbauen, da ich von VBA keine Ahnung habe.
Vielleicht konnte ich Dich einen Schritt weiter bringen!? Gruß:-) Konni
Private Sub Workbook_Open()
'* H. Ziplies *
'* 03.08.2003 *
'* erstellt von Hajo.Ziplies@web.de *
'* <a href="http://home.media-n.de/ziplies/">http://home.media-n.de/ziplies/</a> *
Dim StDatei As String
Dim StPhad As String
StDatei = ThisWorkbook.Name ' Dateiname
StPhad = ThisWorkbook.Path ' Phad
' überprüfen ob Datei schon vorhanden
' nur notwendig falls Datei in der gleichen Minute nochmal geöffnet wird
' von Berti Koern
Dim Fso As Object
Set Fso = CreateObject("Scripting.FileSystemObject")
If Fso.FileExists(StPhad & "\" & Format(Now, "DD.MM.YY") & " - " & Format(Now, "hh-mm") & " " & _
Application.UserName & _
"_" & StDatei) Then
Kill StPhad & "\" & Format(Now, "DD.MM.YY") & " - " & Format(Now, "hh-mm") & " " & _
Application.UserName & "_" & StDatei
End If
' es werden als Trennzeichen keine Punkte verwendet.
' ich bin der Auffasung im Dateinamen sollte es nur einen Punkt geben
ActiveWorkbook.SaveCopyAs Filename:=StPhad & "\" & Format(Now, "DD.MM.YY") & " - " & Format(Now, "hh-mm") & "_ " & _
Application.UserName & _
"" & StDatei '**************************************************
End Sub