MsgBox aktivieren
14.07.2003 18:37:57
Peter Knierim
vor dem unten stehenden Auszug eines Makros werden mehrere Dateien zusammen geführt und in eine neue Datei kopiert.
Dann spring das Makro zurück zur Ausgangsdatei und eine Mldg erscheint.
Hierbei handelt es sich um den Tpy vbYesNo+vbQuestion+vbDefaultButton1.
Nun zum Problem:
ich muß immer 2 mal einen Button anklicken um die Option auszuführen und wie bekomme ich es hin das auch bei klick auf das Kreuz(Minimieren/Maximieren/Schliessen) die Datei ohne zuspeicher schliessen kann.
Auszug des Makro:
...........
............
'schließt das Programm ohne die Daten zuspeichern
Windows("Datensatzsuchprogramm.XLS").Activate
Sheets("Begrüßung").Select
Mldg = "Wollen Sie die Liste der freien. " & Chr(13) & _
"Ports berechnen und mit den Zurü Daten" & Chr(13) & _
"die senkrechte lage ermitteln?" & Chr(13)
Stil = vbYesNo + vbQuestion + vbDefaultButton1
Title = "Datensatzsuchprogramm"
Kontext = 1000
Ergebnis = MsgBox(Mldg, Stil, Title, Help, Kontext)
Antwort = MsgBox(Mldg, Stil, Titel, Hilfe, Ktxt) ' Meldung anzeigen.
If Antwort = vbYes Then
frmFreie_Ports_ermitteln.Show
Else
ActiveWorkbook.Close SaveChanges:=False
End If
End Sub