nur arbeitsbereich speichern
29.01.2004 19:15:03
Maren
ich habe eine Datei. In Tabelle 1 gibt es eine Zelle in die der Name eingetragen wird unter der die Datei gespeichert wird. Dazu benutze ich nachfolgenden Code. Nun habe ich aber festgestellt das, dass keine gute Dauerlösung darstellt weil die Datei jedesmal mit allen Arbeitsblättern und Inhalten gespeichert wird. Die Datei ist 3200 KB groß. Deshalb möchte ich, dass nur das Tabellenblatt 4 gespeichert wird und die Ausgangsdatei unverändert geschlossen wird. Ich habe schon probiert ein Makro aufzuzeichnen wo ich zuerst die Berechnung auf Calculate.Manual schalte und dann die ersten drei Tabellenblätter lösche. Leider funktioniert das nicht weil in Tabelle 1 ca.80 Textfelder sind und 40 Kombinationsfelder, daran hängt sich Excel auf.
Was mache ich nur?????
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 >>>Maren_20.01.2004<<< !")
Else
ActiveWorkbook.SaveAs FileName:="C:\Temp\" & ActiveCell() & ".xls"
ThisWorkbook.Close False
End If