Tabelle speichern unter....
28.07.2005 20:09:27
Uwe
mit dem folgenden Code speichere ich ein einzelnes Sheet aus einer Datei.
Wenn ich aber im Original änderungen mache ändert sich auch das gespeicherte Sheet.
Wie kann ich die Verknüpfungen zur Ursprungsdatei trennen?
Bitte helft mir.
Gruß Uwe
Private Sub CommandButton1_Click()
Dim Antwort
Dim fn
Sheets("Formular").Copy
On Error GoTo ERRHANDLER
'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
If Err.Number > 0 Then MsgBox Err.Description, , "Fehler Nr. " & Err.Number
End Sub