speichern

Private Sub CommandButton4_Click()
Dim datei As String
Dim check As String
Dim knopf As Integer
ActiveSheet.Copy
Speichern:
datei = Application.GetSaveAsFilename( _
InitialFileName:="xrays", _
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
End Sub