Hallo,
Wenn man auf der Arbeit ein Dokument in Excel in das Verzeichnis A abspeichert, soll man es gleich in ein Verzeichnis B abspeichern. Nun frage ich mich, ob man das auch gleich mit einem Makro machen kann? Quasi mit dem Klick auf speichern die Datei zweimal schreiben?
Grüsse
Chris
das gleiche „Problem“ hatte ich auch.
Da sollten es 2-3 Orte sein.
1x Netzwerk und 2x dezentral - auf den Rechnern der beiden benutzer
Sub backup\_speichern()
On Error Resume Next 'Fehler verhindern...
' Wechseln der Verzeichnisse
Sheets("Abrechnung").Select
user1 = "D:\_PRIVAT" ' Verzeichnis v. User1
user2 = "D:\Save\Badminton" ' Verzeichnis v. User2
ChDrive ("D:\")
ChDir (user1)
ChDir (user2)
' erstellen des Dateinamens
datum = Date
sorted = "Badminton\_" & Mid$(datum, 7, 4) & "-" & Mid$(datum, 4, 2) & "-" & Mid$(datum, 1, 2) & ".xls"
' lokales speichern
If CurDir = user1 Or CurDir = user2 Then
dirused = CurDir
savename = CurDir & "\" & sorted
Kill savename ' löschen der vorhandenen Datei...
ActiveWorkbook.SaveAs Filename:=savename, FileFormat:=xlNormal, CreateBackup:=False
' überprüfung
check = ThisWorkbook.FullName
If check = savename Then
Msg = "Backup erfolgreich..." & Chr(10) & Chr(10)
Else
Msg = "Lokale Speicherung gescheitert..." & Chr(10) & Chr(10)
End If
End If
' speichern im Netz...
ChDrive ("I:\")
serverpath = "I:\public\files\bla\"
serversavename = serverpath & sorted
Kill serversavename ' löschen der vorhandenen Datei...
ActiveWorkbook.SaveAs Filename:=serversavename, FileFormat:=xlNormal, CreateBackup:=False
' überprüfung
check = ThisWorkbook.FullName
If check = serversavename Then
messi = Msg & "Netzspeicherung erfolgreich..."
Else
messi = Msg & "Netzspeicherung gescheitert..."
End If
MsgBox messi
End Sub
falls Du gesehen hast wird bei meiner Variante noch das aktuelle Datum vorangeschrieben und falls die Datei im Moment vorhanden ist diese gelöscht (da sie eh überschrieben würde).
Beim Überschreiben gäbe es nämlich u.U eine Fehlermeldung…
Hey Münchner,
Das ist ja klasse, danke! Ich habe Dir ein Sternchen gegeben. Ich habe noch kein VB programmiert aber das sieht gut aus.
Grüß
Chris