Re: @ Bernd Held
14.05.2003 22:11:45
Peter Scheuß
Hallo Bernd,das würde mich allerdings auch interessieren?
Ich habe mein Sheet noch um ein "Schmankerl" Erweitert:
Sub Schaltfläche4_BeiKlick()
Application.EnableEvents = False
ThisWorkbook.SaveAs Range("F2") & Format(Now, "_dd_mm_yyyy_hhmm") & ".xls"
Application.EnableEvents = True
Cancel = True
End Sub
Interessant hier ist ..Range ("F2") : hier wird auf einen Zellinhalt zurück gegriffen. Der "Text" der hier drin steht wird als Teil des Dateinamens genuzt! :-)
Dieser wird übrigens bei mir von einem "Nummerngenerator" zusammengestellt.
Somit Speichert der Nutzer immer ein neues Arbeitsblatt mit einem logischen Namen und Datum Zeit ab!
Besser gehts nimmer...
Es wäre tatsächlich jedoch noch der kniff wenn "nur" das aktuelle Arbeitsblatt "filettiert" wird..