habe folgenden Code um die ein Blatt zu kopieren und in einem bestimmten verzeichnis mit meinen angaben zu speichern.
Sub speich_unter()
Workbooks(1).Sheets(1).Copy
ChDir "R:\T2\T2S\T2S-Personaldaten\T2S-Statistik"
a = InputBox("Speichernamen" & Chr$(13) & Chr$(10) & Chr$(10) & _
"04 (JAHR) 10 (Monat)" & Chr$(13) & Chr$(10) & Chr$(10) & "Jahr und Monat in Ziffern" _
& Chr$(13) & Chr$(10) & Chr$(10) & "Speicherort R:\T2\T2S\T2S-Personaldaten\T2S-Statistik" _
, "Name eingeben", "")
ActiveWorkbook.SaveAs Filename:=a, _
FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False
ActiveSheet.Unprotect
Cells.Copy
Cells.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Application.CutCopyMode = False
Range("A1").Select
ActiveWorkbook.Save
ActiveWorkbook.Close
End Sub
Das Problem ist das er mir die schaltflächen mit kopiert womit ich das speichen auslöse. Kann man den Code so ändern das er die schaltflächen nicht mit kpiert ?
Vielen Dank für Eure hilfe im vorraus
Gruß Alex