Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
912to916
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
912to916
912to916
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Abfrage Kopie erstellen ja nein

Abfrage Kopie erstellen ja nein
02.10.2007 09:44:00
maruseru
Mit untenstehendem Code wird automatisch eine Kopie erstellt. Nun möchte ich aber eine Abfrage einbauen, soll ene Kopie erstellt werden ja / nein. Bei ja Kopie erstellen bei nein weiterarbeiten.
Danke und Gruss
Maruseru

Sub auto_open()
'Save each time when open the file a copy with the actual date and time
Dim DName, Dateiname, Pfad
Pfad = "X:\Archive\RfC Recorder Version"
DName = "Archived RfC Recorder_actual "
Dateiname = Pfad & "\" & DName & Format(Now, "YYYY.MM.DD HH.MM") & ".xls"
ThisWorkbook.SaveCopyAs Filename:=Dateiname
End Sub


3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Abfrage Kopie erstellen ja nein
02.10.2007 10:08:54
Philipp
Hallo,
dein Problem ist schnell gelöst:
Dim i as Integer
i = MsgBox("Soll eine Kopie erstellt werden?", 4)
if i = 6 then
Dein bisheriger Code
end if

AW: Abfrage Kopie erstellen ja nein
02.10.2007 10:09:00
Philipp
Hallo,
dein Problem ist schnell gelöst:
Dim i as Integer
i = MsgBox("Soll eine Kopie erstellt werden?", 4)
if i = 6 then
Dein bisheriger Code
end if

AW: Abfrage Kopie erstellen ja nein
02.10.2007 11:17:00
maruseru
Hallo Philipp
Klappt wunderbar.
Danke und Gruss
Maruseru
Anzeige

301 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige