Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

MsgBox

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

Anzeige

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

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

Beliebteste Forumthreads (12 Monate)

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