Tabellenblatt mit Blattschutz kopieren
31.05.2022 10:34:42
micba
ich möchte ein excel Tabellenblatt in eine neue Datei kopieren.
Mit folgendem code fkt das auch gut:
Sub tab_export()
Dim dateiname As String
Dim tab_auswahl As String
tab_auswahl = "tabelleX"
'Dateiname festlegen:
dateiname = Application.GetSaveAsFilename(FileFilter:="Excel Files (*.xlsx), *.xlsx")
If LCase(dateiname) = "falsch" Or LCase(dateiname) = False Then
'Abbrechen wurde geklickt
MsgBox ("Der Vorgang wurde abgebrochen!")
Exit Sub
End If
Sheets(tab_auswahl).Copy
With ActiveSheet.UsedRange
.Copy
.PasteSpecial Paste:=xlValues
End With
Application.CutCopyMode = False
ActiveWorkbook.SaveAs Filename:=dateiname
ActiveWorkbook.Close
End Sub
Anzeige