Beim Kopieren eines Tabellenblattes den VBA-Code e
09.09.2008 09:58:00
Alfi
ich habe eine mehrblättrige Datei, per Makro kopiere ich ein Blatt und speichere dieses unter neuem Namen ab.
Dieses Blatt soll aber nicht mehr den VBA-Code der ursprübglichen Datei enthalten, sprich ein Blatt ohne Makros.
Wer kann mir helfen?
So sieht der Code zum Kopieren des Blattes aus:
Sub DateiEnde()
' *****Datei mit Datum im Archiv ablegen*****
Dim Verzeichnis As String
Dim Tabblatt As String
Dim Thema As String
Dim Erweiterung As String
Dim DateiName (1) As String
Dim Präfix As String
Application.Calculate
Application.ScreenUpdating = False
' Ermitteln der Laufwerksinfo
Blattschutz = setzeBlattschutz(False, "Archiv")
'Blattschutz = setzeBlattschutz(False, "Formular")
Verzeichnis = ":\Allgemein\Morgenbesprechung\Archiv\"
Erweiterung = ".xls"
FileInfo = "K"
Fileversion = Format([Heute], "YYYYMMDD")
DateiName = FileInfo & Verzeichnis & Tabblatt(Formular) & Fileversion & Erweiterung
'ChDir FileInfo & Verzeichnis
'Kopie des Datenblattes
Sheets("Formular").Select
Sheets("Formular").Copy
DateinameNew = ActiveWorkbook.FullName
ActiveWorkbook.SaveAs Filename:=DateiName
ActiveWorkbook.Close