speichern unter
jede029
wie wird der code umgeschrieben das es nur mit werten ohne Formeln und verweise
speichert
Dim datei As String
Dim check As String
Dim knopf As Integer
ActiveSheet.Copy
Speichern:
datei = Application.GetSaveAsFilename( _
InitialFileName:="Auswertung xrays " & Format(Now, "ddmmyy hhmm"), _
Filefilter:= _
"Microsoft Excel-Arbeitsmappe (*.xls), *.xls," & _
"beliebige Dateien (*.*), *.*", _
FilterIndex:=1, _
Title:="Diese Mappe wird gespeichert")
If datei = "Falsch" Then Exit Sub
check = Dir(datei)
If check "" Then
knopf = MsgBox( _
Title:="Die Datei '" & datei & "' besteht bereits.", _
prompt:="Möchten Sie bestehende Datei ersetzen?", _
Buttons:=vbYesNo + 256 + vbInformation)
If knopf = vbNo Then GoTo Speichern
End If
Application.DisplayAlerts = False
ActiveSheet.SaveAs Filename:=datei
Application.DisplayAlerts = True