Tabellenblatt ohne Formeln speichern
05.08.2021 22:04:55
AndreM
ich habe ein kleines Problem und meine VBA Kennnisse sind leider noch zu bescheiden um das Problem alleine zu lösen.
Ich möchte ein Tabellenblatt in einer neuen Datei Speichern, den Speicherort und den Namen holt das Makro von A2 und A1. Das Speichern funktioniert auch soweit, was ich nicht hinbekommen ist, die Datei nur mit den berechneten Werten zu speichern ohne Formeln und Makros.
Hier der Code, ich hoffe ihr könnt mir helfen. vielen Danke schon mal. Gruß Andre
Sub Speichern_neu()
Dim strPath As String
Application.ScreenUpdating = False
ChDir Sheets("Stundenbuch").Range("A2").Value
Sheets("Stundenbuch").Copy
Application.CutCopyMode = False
strPath = Application.GetSaveAsFilename(InitialFileName:=Sheets("Stundenbuch").Range("A1").Value & ".xlsx", FileFilter:="Exceldateien (*.xlsx),*.xlsx,Alle Dateien (*.*), *.*")
If strPath = "False" Or strPath = "Falsch" Then Exit Sub
ActiveWorkbook.SaveAs strPath
ActiveWorkbook.Close
Application.ScreenUpdating = True
End Sub
