Noch ne andere Frage zu MsgBox
07.04.2005 19:39:15
Bryan
Über einen Button in einer UF lasse ich Werte einlesen und anschliesend die Mappe Speichern, dazu lasse ich eine Box einblenden die das speichern mitteilt. Nach drücken von Ok der Box wird gespeichert. Nach dem Speichern erscheint eine neue Box mit speichern beendet wenn wieder ok gedrückt wird verschwindet die Box und die UF.
Frage kann man die Box nur einblenden und von selbst wieder ausblenden lassen oder muss man sie immer quittieren? Hier mal der code:
Sub Extra()
If Worksheets("Start").Visible = True Or Worksheets("Parametereinstellung").Visible = True Then
MsgBox "Es ist kein Produkt ausgewählt," + _
"" + vbNewLine + _
"" + vbNewLine + _
"bitte abbrechen und zu bearbeitendes Produkt" + _
"" + vbNewLine + _
"" + vbNewLine + _
"über 'Produkt Auswahl' Schaltfläche auswählen!", 64, "Stabiberechnung R410/R420 Information"
End If
UsrDatenübernahme.Show
End Sub
DAnke Bryan
Anzeige