Einzelne Tabelle speichern
07.10.2007 19:58:00
Pippo
wieder mal ein anliegen.
In den folgenden Code werden 2 Tabellen gespeichert. Soweit so gut!
Der Code erledigt alle Aufgaben bis auf einein "Schöneheitsfehler"!!
Die Datei wird nicht als '.xls' Datei gespeichert, sondern als "Name der Tabelle Datei" gespeichert" (z.B.: xxx-Datei".
Wie soll ich der Code ändern, damit die Datei als Excel-Tabelle gespeichert wird?
Danke
Pippo
Sub Rechnung_Speichern1()
Speed
Dim sPath As String, S As String
S = Worksheets("Rechnung").Range("i19").Value
sPath = "C:\OFFICE CONTROL ©\Rechnungen\"
If MsgBox("Rechnung '" & Range("i19") & "' speichern ? ", vbYesNo, "OFFICE CONTROL ©") = 7 Then _
Exit Sub
Application.Calculation = xlCalculationManual
Auf
Sheets(Array("Stundenerfassung", "Rechnung")).Copy
ActiveSheet.Name = S
VBA_Kennwort
RemoveAllMacros ActiveWorkbook
Application.DisplayAlerts = False
ActiveWorkbook.PrecisionAsDisplayed = False
ActiveWorkbook.UpdateLinks = xlUpdateLinksNever
ActiveWorkbook.SaveAs Filename:=sPath & S , FileFormat:=xlNormal, Password:="", _
WriteResPassword:="", ReadOnlyRecommended:=False, _
CreateBackup:=False
ActiveWorkbook.Close savechanges:=True
With Application
.DisplayAlerts = True
.Calculation = xlCalculationAutomatic
End With
ActiveWorkbook.PrecisionAsDisplayed = True
MsgBox ("Die Rechnung " & S & " wurde gespeichert")
Application.Calculation = xlCalculationAutomatic
Akt
goto_Rechnung
End Sub
