Hallo
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