Live-Forum - Die aktuellen Beiträge
Datum
Titel
24.04.2024 09:36:02
Wenn Wert x in Zelle a, dann Wert y in Zelle b
24.04.2024 09:24:20
Textketten erstellen mit unterschiedlichen Anzahl an Feldern
24.04.2024 09:04:14
Erfahrung Umstieg in Sharpoint
24.04.2024 08:01:34
Textbox Inhalt prüfen und Code abbrechen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
484to488
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
484to488
484to488
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Speichern!

Speichern!
20.09.2004 11:43:34
mario
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

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Speichern!
Fred
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
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige