Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
916to920
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
916to920
916to920
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

MsgBox

MsgBox
18.10.2007 15:32:00
Hartwig
Hallo
Ich habe folgendes im VBA Editor stehen:

Sub ÖffnenUndSchliessen()
NeueDatei = "P:\Lae\RSA24V23test.xls" 'Dateiname der zu öffnenden Mappe
Workbooks.Open NeueDatei
'Falls Mappe IMMER unter dem gleichen Namen gespeichert werden soll :
ThisWorkbook.Save
ThisWorkbook.Close
End Sub


Nun möchte ich wenn (evtl. bevor) dieser


Sub ausgeführt wird,
eine Text-Box mit einer Nachricht (z.B. "Achtung!") angezeigt wird.
Kann mir da jemand helfen?
Vielen Dank im Voraus
Hartwig

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: MsgBox
18.10.2007 16:04:15
Wolli
Hi Hartwig,
so:

Sub ÖffnenUndSchliessen()
Dim i As Integer
i = MsgBox("Makro ausführen?", vbOKCancel, "Geföööööhrlich")
If i = 1 Then
NeueDatei = "P:\Lae\RSA24V23test.xls" 'Dateiname der zu öffnenden Mappe
Workbooks.Open NeueDatei
'Falls Mappe IMMER unter dem gleichen Namen gespeichert werden soll :
ThisWorkbook.Save
ThisWorkbook.Close
End If
End Sub


Gruß, Wolli

Danke
18.10.2007 16:13:00
Hartwig
Vielen Dank Wolli, du hast mir sehr geholfen....
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige