Hallo,
ich erstelle mit diesem Makro eine neue Datei mit dem aktiven Tabellenblatt und 3 festen Blättern und speicher diese automatisch.
Sub Blattspeichern()
Dim NewDateiname2 As String
Dim NewPfad2 As String
Dim wbkNeu As Workbook
Dim strActSheet As String
Dim i As Integer
strActSheet = ActiveSheet.Name
With Sheets("Verknüpfungen")
NewDateiname2 = .Range("A23")
NewPfad2 = .Range("A22")
End With
prtcmd2 = NewPfad2 & NewDateiname2
ThisWorkbook.SaveCopyAs Filename:=prtcmd2 & ".xls"
Set wbkNeu = Workbooks.Open(Filename:=prtcmd2 & ".xls")
With wbkNeu
For i = .Sheets.Count To 1 Step -1
Select Case .Sheets(i).Name
Case strActSheet, "Formeln", "Verknüpfungen", "Importdateien"
'nix passiert
Case Else
Application.DisplayAlerts = False
Sheets(i).Delete
Application.DisplayAlerts = True
End Select
Next i
.Close True
End With
MsgBox "Datei " & prtcmd2 & " erstellt!"
Exit Sub
wie kann ich jetzt noch definieren, dass in der neuen Datei automatisch alle Makros gelöscht werden?
MfG
Steve