Weiß jemand, wie ich eine Kopie meiner kompletten Arbeitsmappe erste (inklusive Makros & Modulen)?
Ich meinte nicht eine Kopie der Datei sondern eine Kopie der Mappe, also dass sich die ganze Mappe nochmal öffnet.
Danke.
Sub SaveCopyWithSelectedSheets()
If ActiveSheet.Name Name Then Exit Sub
strFilter = Split(ThisWorkbook.Name, ".")(UBound(Split(ThisWorkbook.Name, ".")))
strFilter = "(*." & strFilter & "),*." & strFilter
strDatNam = Application.GetSaveAsFilename(ThisWorkbook.Path, strFilter)
If Not UCase(strDatNam) = "FALSCH" And Not UCase(strDatNam) = "FALSE" Then
ThisWorkbook.SaveCopyAs strDatNam
Dim StrA() As String
ReDim StrA(Selection.Cells.Count)
For j = 1 To Selection.Cells.Count
StrA(j) = Selection.Cells(j).Value
Next
Set wbExtern = Workbooks.Open(strDatNam)
Application.DisplayAlerts = False
Dim Blatt As Object
For Each Blatt In wbExtern.Worksheets
If Blatt.Name sheetSAP And Blatt.Name sheetUser And IsInArray(StrA(), Blatt. _
Name) = -1 Then Blatt.Delete
Next Blatt
Application.DisplayAlerts = True
wbExtern.Close SaveChanges:=True
End If
End Sub