Fehler beim "Sheet kopieren"
27.02.2019 16:11:55
Ulf
ich habe eine umfangreiche Kalkulation in einem Excelsheet. Ich habe viele solcher Sheets in einer Datei. Für die Speicherung eines Sheets kann der Anwender per Steuerelement das Makro "Sheet kopieren" starten. In dem Fall wird das eine Sheet kopiert und es öffnet sich das "Speichern unter" Fenster. Dies soll Speicherplatz sparen, da die Gesamtdatei relativ groß ist.
Es ist nun so, dass sich die Ergebnisse aus der Kalkulation beim Kopieren verändern.
Wenn ich das Sheet manuell kopiere ohne Makro erhalte ich den identischen Fehler.
Woran kann das liegen? Hat jemand eine Idee?
Sub Angebot28Speichern()
Dim dateiname, VN_Name As Variant
VN_Name = Range("c9").Value
dateiname = Year(Date) & "-" & Month(Date) & "-" & Day(Date) & "-" & VN_Name & "- _
Kalkulation_§28"".xlsm"
'Blatt kopieren
Sheets("Beispiel").Copy
'Zeigt das SpeichernUnter-Fenster ab
Application.Dialogs(xlDialogSaveAs).Show dateiname
End Sub
Anzeige