Abspeichern eines Tabellenblattes
24.03.2005 12:04:10
steve
ich habe über VBA folgendes:
Sub Blattspeichern()
Dim NewDateiname As String
Dim NewPfad As String
With Sheets("Verknüpfungen")
NewDateiname = .Range("A23")
NewPfad = .Range("A22")
End With
On Error GoTo errorHandling
Application.ScreenUpdating = False
prtcmd2 = NewPfad & NewDateiname
Application.SendKeys (prtcmd), True
Application.SendKeys "{ENTER}", True
Application.ScreenUpdating = True
ActiveSheet.Copy
ActiveWorkbook.SaveAs Filename:=prtcmd2 & ".xls"
MsgBox "Datei " & prtcmd2 & " erstellt!"
Exit Sub
errorHandling:
MsgBox "Der folgende Fehler ist aufgetreten: " & _
Err.Number & " - " & Err.Description
End Sub
Das Problem ist ich würde gerne nicht nur das aktive Blatt sondern eben auch noch fix das Blatt Formeln mit erstellen. Außerdem soll er automatisch nach dem Erstellen das neue Blatt schließen.
Wie könnte so was aussehen?