Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema MsgBox
BildScreenshot zu MsgBox MsgBox-Seite mit Beispielarbeitsmappe aufrufen

Abfrage Kopie erstellen ja nein

Betrifft: Abfrage Kopie erstellen ja nein von: maruseru
Geschrieben am: 02.10.2007 09:44:13

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


  

Betrifft: AW: Abfrage Kopie erstellen ja nein von: Philipp
Geschrieben am: 02.10.2007 10:08:54

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


  

Betrifft: AW: Abfrage Kopie erstellen ja nein von: Philipp
Geschrieben am: 02.10.2007 10:09:09

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


  

Betrifft: AW: Abfrage Kopie erstellen ja nein von: maruseru
Geschrieben am: 02.10.2007 11:17:59

Hallo Philipp

Klappt wunderbar.

Danke und Gruss
Maruseru


 

Beiträge aus den Excel-Beispielen zum Thema "Abfrage Kopie erstellen ja nein"