Microsoft Excel

Herbers Excel/VBA-Archiv

Speichern!

Betrifft: Speichern! von: mario
Geschrieben am: 20.09.2004 11:43:34

hallo!
also ich habe eine Arbeitsmappe und ein user formular.
ein user gibt ein paar daten ein und startet ein programm!
dieses programm wird mit einem stop button beendet!
wo ich nicht weiterkomme:
das ganze sheet sollte beim drücken des stop-buttons oder beim schliessen der
ganzen arbeitsmappe automatisch in einen ordner gespeichert werden und das sheet soll unter den namen den der user früher eingegeben hat plus das aktuelle datum gespeichert werden!
danke im voraus!
mfg
mario

  


Betrifft: AW: Speichern! von: Fred
Geschrieben am: 21.09.2004 09:11:04


Butten anlegen ( Code = "Run Speichern")
Einfügen Modul Name = Speichern (oder so) diesen Code einfügen.


Sub Speichern()	
Datei = Cells(1, 1) ' in dieser Zelle muss Dateiname stehen.	
Datum = Date ' holt aktuelles PC Datum	
Zeit = Time 'wenn mit Uhrzeit dann  In Variable "Ort" mit verknüpfen	
Ort = (Datei & Datum & ".xls") 'fügt Dateiname und Datum zusammen.	
    Sheets("XXXXX").Select 'ist aktuelle Tabelle	
    Cells.Select	
    Selection.Copy	
    Workbooks.Add ' erzeugt neue Mappe	
    ActiveSheet.Paste	
    Application.CutCopyMode = False	
    ChDir "C:\Eigene Dateien\Ordner"     'ist Pfad	
 On Error GoTo 10 'Meldung Datei schon vorhanden(bei NEIN Aktion überspringen)	
     ActiveWorkbook.SaveAs Filename:= _	
        Ort, FileFormat:=xlWorkbookNormal, _	
        Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _	
        CreateBackup:=False	
Range ("A1").Select	
10  ActiveWorkbook.Saved = True 'Hilfsmappe nicht speicher und schliessen	
  ActiveWindow.Close	
On Error Resume Next	
End Sub


Ich hoffe deine Frage richtig erkannt zu haben.
Fred