bestehendes Makro (Save as) erweitern
25.05.2005 19:49:05
Max
ich benutze ein Makro (von Uwe D.) aus einem Thread der letzten Tage, um Tabellen
unter dem Kundennamen zu speichern. Funktioniert auch super.
Mir würde es allerdings sehr helfen, wenn es sich dahingehend erweitern läßt,
dass unter dem gleichen Datei-Namen eine Kopie in C:\Backup angelegt wird.
Während ich die "Speichern unter"-Abfrage für das Original brauche, kann die
Backup Kopie über einen im Makro festgelegten Pfad ohne Nachfrage gespeichert
werden. Auch ein Überschreiben vorhandener Kopien kann automatisch ohne Nachfrage erfolgen.
So sieht das Makro im Moment aus:
Sub speichern_unter()
Dim Pfad$, Datei$, Filter$, Endg$, File
Pfad = "C:\Kunden\"
Datei = ActiveSheet.Range("A5")
If Datei = "" Then
MsgBox "Zelle einhält keinen Eintrag"
Exit Sub
End If
Endg = ".xls"
If InStr(Datei, Endg) = 0 Then 'Prüfung ob Zelle bereits Endung enthält
Datei = Datei & Endg
End If
Filter = "Excel Files (*" & Endg & "), *" & Endg
File = Application.GetSaveAsFilename(Pfad & Datei, Filter)
If File <> False Then ActiveWorkbook.SaveAs Filename:=File
End
Sub
Danke für eure Mühe!
Gruß
Max