ich habe folgendes Problem,
ich habe mir hier in der Online Suche folgenden Code herausgesucht, es klappt sehr gut, aber wenn ich die abgespeicherte Datei öffne, ist die Datei mit der Ausgangsdatei verknüpft. Es sollen aber nur die Werte und die Formatierung kopiert werden. Wie kann man diese Problem lösen, da die anderen Lösungen in der Onlinesuche bei mir nur Fehlermeldungen bringen.
Vielen Dank im Vorraus für eure Bemühungen
Gruß
Sönke
Sub Blattspeichern()
On Error Resume Next
Application.ScreenUpdating = False
pfad = InputBox("Bitte überprüfen Sie den Pfad, in dem das Blatt gespeichert werden soll!", , " _
C:\Dokumente und Einstellungen\Standart\Eigene Dateien\Betriebskosten\")
Select Case Right(pfad, 1)
Case ""
GoTo ERRORHANDLER
Case Is "\"
pfad = pfad & "\"
End Select
ActiveSheet.Copy
On Error GoTo ERRORHANDLER
ActiveWorkbook.SaveAs Filename:=pfad & Range("B7").Value & Range("B5").Value & Format(Now, "DD- _
MM-YY") & ".xls"
ActiveWorkbook.Close False
Exit Sub
ERRORHANDLER:
Select Case Err.Number
Case 1004
MsgBox ("Speichervorgang des Blattes wurde abgebrochen")
ActiveWorkbook.Close savechanges:=False
Case Else
End Select
Application.ScreenUpdating = True
ActiveWorkbook.Close False
End Sub