Hallo liebe Gemeinde,
ich will eine Datei so speichern das nur Tabelle 4 gespeichert wird und die Ausgangsdatei danach unbelassen geschlossen wird. Die bisherige Speicherroutine sieht so aus. Kann mir bitte jemand helfen???
With Application
.Calculation = xlManual
.MaxChange = 0.001
End With
ActiveWorkbook.PrecisionAsDisplayed = False
Application.DisplayAlerts = False
Application.ScreenUpdating = False
Dim WB
If Workbooks.Count > 1 Then
For Each WB In Application.Workbooks
If WB.Name <> ActiveWorkbook.Name Then
WB.Save
WB.Close
End If
Next
End If
Range("C5").Select
If Len(ActiveCell) = 0 Then
MsgBox ("Bitte Name und Datum eingeben Beispiel >>>Heinze_20.01.2004>>>!")
Else
ActiveWorkbook.SaveAs FileName:="C:\Temp\" & ActiveCell() & ".xls"
ThisWorkbook.Close False
End If
Herzlichst Maren