ich möchte folgendes tun:
1) Aus einer Excel-Datei ein Sheet als neue Datei in einem bestimmten Pfad ablegen.
2) Der Dateiname kommt aus einem Zelleninhalt.
3) Es sollen nur Werte gespeichert werden, keine Formeln, keine Links.
Die ersten beiden Punkte klappen gut, bei Punkt 3) habe ich schon einiges versucht, aber alles erfolglos. Es kommt ständig der Laufzeitfehler 1004, der mir nicht weiterhilft.
Der Code sieht wie folgt aus:
Sub Speichern()
Dim Pfad As String, Dateiname As String
ChDir "\"
Pfad = ""
Dateiname = Range("B2")
ActiveSheet.Copy
ActiveWorkbook.SaveAs Filename:=Pfad & Dateiname
ActiveWorkbook.Close
End Sub
Dummerweise beziehen sich einige Zellen der generierten Excel-Datei immer noch auf Zellen der Ursprungsdatei, da dort eben auch nicht nur direkte Werte stehen.
Ich habe einiges gefunden im Netz und auch versucht, aber es kommt immer die Fehlermeldung, da ich die korrekte Syntax nicht hinkriege.
Wie muss ich meinen Code erweitern, damit nur Werte übertragen werden?
Gruß
Dieter