VBA
28.09.2016 17:31:18
willi
eine Frage, wie kann mann in dem Makro erreichen, das mann eine neue Pfad eingeben kann zu speicher z.B D:\www\yyy\zzz\kopie.xlsx.
Gibt es noch eine Möglichkeit, dass die Kopie bei jeden speichern einen höher zählt z. B. 9. Kopie, 10.Kopie usw.
Private Sub CommandButton2_Click()
Dim ws As Worksheet, wb As Workbook
Worksheets(1).Copy
Set ws = ActiveSheet
ws.OLEObjects(1).Delete
Set wb = ws.Parent
With Application.FileDialog(msoFileDialogSaveAs)
.FilterIndex = 1
.InitialFileName = "Kopie.xlsx"
If .Show Then
Application.DisplayAlerts = False
wb.SaveAs Filename:=.SelectedItems(1), FileFormat:=xlOpenXMLWorkbook
wb.Close SaveChanges:=False
Application.DisplayAlerts = True
End If
End With
Set ws = Nothing
Set wb = Nothing
End Sub
danke im voraus,Gruß Willi