Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.09.2025 22:18:24
Liste mit Links - tricky
26.09.2025 18:34:36
Welches Datum gibt mein M-Code aus?
26.09.2025 10:29:46
Wert aus einer Zelle bei jeder Eingabe in neue Zelle
26.09.2025 08:51:00
Teilinhalt einer Zelle vergleichen
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
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 Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Speichern!

Forumthread: 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
Anzeige

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)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige