Habe ein kleines Problem mit Speichern.
Habe einen Ordner "Test" auf Memory Stick.
In dieser Ordner ist die Mappe "Work.xlsm" gespeichert wo sich der Macro "SicherungAnlegen" befindet.
Dieser Macro sichert mir Work.xlsm" ins Neue Mappe als /Format(Now, "DD-MM-YY_hh-mm-ss") & ".xlsx"/.
Zur Problemm. Ich habe mit diesen Befehl gedacht;
/ActiveWorkbook.SaveAs .Path & "\BackUp2009" & Format(Now, "DD-MM-YY_hh-mm-ss") & ".xlsx"/
es solle die Mappe "BackUp2009........xlsx" in unter Odner "BackUp2009" gespeichert werden.
Der unter Ordner befindet sich in "Test" Ordner auf den Memory Stick.
Wie konnte man immer eine Sicherungs Kopie in den vorgegebenen"BackUp2009" Unterodner auf den Memory Stick haben und nicht in den Ordner wo sich die Mappe "Work.xlsm" befindet.?
Da ich auf verschiedenen PCs arbeite hat die Memory Stick immer andere Buchstabe und von da her kann man nicht feste Buchstabe für den Memory Sick vergeben.
Hat jemand von Euch eine Idee dazu?
Ich wäre für helfende Hinweise sehr dankbar.
Netten Gruß Daniel
Sub SicherungAnlegen()
Dim Datei As Workbook, meTab As Worksheet, lngZahl As Long
Const Pfad As String = "C:\"
Application.ScreenUpdating = False
For Each meTab In ThisWorkbook.Sheets
If meTab.Visible = True Then
lngZahl = lngZahl + 1
If lngZahl = 1 Then
meTab.Copy
Set Datei = ActiveWorkbook
Else
meTab.Copy After:=Datei.Sheets(Datei.Sheets.Count)
End If
End If
Next meTab
Application.DisplayAlerts = False
With ThisWorkbook
ActiveWorkbook.SaveAs .Path & "\BackUp2009" & Format(Now, "DD-MM-YY_hh-mm-ss") & ".xlsx"
End With
Application.DisplayAlerts = True
Datei.Close
ThisWorkbook.Save
Application.ScreenUpdating = True
Set Datei = Nothing
End Sub