SaveCopyAs
25.09.2006 17:09:12
Jörg
ich speichere eine Datei mit folgendem Makro:
Dim sFile As String, sPath As String
sPath = ThisWorkbook.Path & "\"
sFile = Range("A1").Value & ".xls"
ActiveWorkbook.SaveCopyAs sPath & sFile
Damit wird die Datei gespeichert und ich kann in der originalen Datei weiter arbeiten.
Auf dem Tabellenblatt ist aber ein Button, den ich nicht mit speichern möchte.
Lösche ich diesen mit:
ActiveSheet.Shapes("CommandButton1").Select
Selection.Delete
dann ist der natürlich auch in meinem Original gelöscht. Wie muß ich den den Code ändern um diesen Button in der Original Datei zu behalten? Ich habe leider nicht so viel Ahnung vom Programmieren und bin für jede Hilfe dankbar.
Gruß Jörg