Schaltflächen entfernen
15.08.2003 11:48:54
Micha_S
ich schon wieder ;-)
gibt es eine Möglichkeit in meiner Datei (s.u) die Schaltflächen vor dem Speichervorgang zu löschen? (mit dem Recorder wird der Code ja ellenlang).
Vorab schon mal vielen Dank für Eure Hilfe.
Gruss aus Berlin
Micha
Sub Mit_Namen_Speichern()
DIM sFile As String, sPath As String
sPath = "C:\Dokumente und Einstellungen\Administrator\Eigene Dateien\Excel\" 'daran lag es
sFile = Range("B1").Value & "_" & Range("B4").Value & ".xls" 'in B1 + B4 steht der zukünftige Dateiname
ActiveWorkbook.SaveAs sPath & sFile
End Sub