VBA Code verbessern
07.06.2005 16:29:38
Michael
diesen Code habe ich mit dem Makrorecorder aufgezeichnet und auch selbst zusammenkopiert.
Sub Save()
Dim sFile As String
' Save Makro
' Makro am 07.06.2005 von Michael Engelhardt geschrieben
Sheets("Wood_Mac_Report").Select
Application.Run Range("WORKSPACE.REFRESH")
Cells.Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("Control").Select
Application.Run Range("WORKSPACE.REFRESH")
Sheets("Control").Select
Application.CutCopyMode = False
ActiveWindow.SelectedSheets.Delete
Application.Run Range("WORKSPACE.REFRESH")
Range("A1").Select
sFile = Application.GetSaveAsFilename(InitialFileName:="Wood_Mac_", fileFilter:="Excel-Dateien, *.xls")
If sFile = "Falsch" Then Exit Sub
Application.DisplayAlerts = False
ActiveWorkbook.SaveAs Filename:=sFile
Application.DisplayAlerts = True
Application.CutCopyMode = False
Application.ScreenUpdating = True
End Sub
Wenn ich das Makro ausführe, stoppt er beim Löschen des Sheets Control mit dieser Meldung: "In den Arbeitsblättern, die Sie löschen möchten, können Daten vorhanden sein. Um die Daten endgültig zu löschen, drücken Sie Entfernen."
Wie kann ich das unterdrücken?
Gruß
Michael