Code überprüfen
29.01.2004 18:56:38
Dieter
Nach der Sicherung des TB. "Blatt1",müsste das so weiter gehen das ich indem Blatt1 wieder bin was ja im Makro bereinigt ist.
Vieleicht nimmt sich jemand mal den Code vor damit er wieder rund läuft.
MfG Dieter
Private Sub CommandButton3_Click()
Dim DName As String, aktDir As String
ChDir "C:\Winnt\Profiles\xflb21\Eigene Dateien\Sicherung_xls\" 'Speicherort
Selection.Copy
DName = "Blatt1" & " " & [A1] & " " & Format(Now, "DD-MM-YY") & ".xls"
ActiveWorkbook.SaveAs DName ' speichere unter Name Inhalt von Zelle A1 Datum.xls
ActiveWorkbook.Close ' Datei wird geschlossen
MsgBox "Kopie erfolgreich unter " & ThisWorkbook.Path & "\" & DName & " gespeichert."
MsgBox " Blatt 1 wird gedruckt , und ein neues Arbeitsblatt wird bereit gestell"
Range("A1:Z40").Activate
ActiveSheet.PageSetup.PrintArea = "$A$1:$Z$40"
ActiveWindow.SelectedSheets.PrintOut Copies:=2, Collate:=True
ChDir "C:\Winnt\Profiles\xflb21\Eigene Dateien"
Workbooks.Open FileName:= _
"C:\Winnt\Profiles\xflb21\Eigene Dateien\VorläufigGesperrte.xls"
Range("K3:M3,Q3,A7:Z31,F34:H40,P35:P40,V34") = ""
Range("A7").Select
End Sub