mit dem nachfolgenden Code speichere ich unter Anderem ein Arbeitsblatt aus einer Mappe (Bestellen) in einer neuen Mappe die dann automatisch geschlossen wird.
Danach komme ich wieder in die Ursprungsmappe Bestellen zurück.
Wie kann ich diese Mappe mit diesem Code auch gleichzeitig schließen ohne zu speichern?
Option Explicit
Sub Textfeld6_BeiKlick()
Dim Antwort
Dim fn
Sheets("Formular").Unprotect Password:="stern123"
Sheets("Formular").Copy
Cells.Copy
Cells.PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = False
On Error GoTo ERRHANDLER
Sheets("Formular").Protect Password:="123"
'Drucken
Antwort = MsgBox("Blatt ""Formular"" drucken?", vbYesNoCancel)
If Antwort <> vbCancel Then
If Antwort = vbYes Then ActiveSheet.PrintOut
'Speichern
Antwort = MsgBox("Blatt ""Formular"" speichern?", vbYesNoCancel)
If Antwort <> vbCancel Then
If Antwort = vbYes Then
fn = Application.GetSaveAsFilename(ThisWorkbook.Path & "\Formular.xls", "Excel-Dateien (*.xls), *.xls")
If fn <> False Then 'Nicht "Abbrechen" gedrückt
On Error Resume Next
ActiveWorkbook.SaveAs Filename:=fn
If Err.Number > 0 Then MsgBox "Formular wurde nicht gespeichert!"
On Error GoTo 0
End If
End If
End If
End If
ERRHANDLER:
ActiveWorkbook.Close savechanges:=False
Sheets("Formular").Protect Password:="stern123"
If Err.Number > 0 Then MsgBox Err.Description, , "Fehler Nr. " & Err.Number
End Sub
Gruß Uwe