Message-Box mit variabler Position
05.08.2003 13:44:15
Thomas S.
Ich möchte die in dem unten stehenden Code erzeugte Messagebox an einer frei wählbaren Stelle auf dem Bildschirm anzeigen. Ist das möglich, oder muß ich mir einen Dialog mit UserForm basteln?
Sub DialogAnzeigen()
Dim Meldung, Stil, Titel, Antwort
Meldung = "Es kann immer nur ein Datensatz angezeigt werden ! Bitte filtern Sie die Datenbank entsprechend." ' Meldung definieren.
Stil = vbOKOnly + vbCritical + vbDefaultButton1 + vbApplicationModal ' Schaltflächen definieren.
Titel = "zu viele Datensätze ..." ' Titel definieren.
Antwort = MsgBox(Meldung, Stil, Titel) ' Meldung anzeigen.
End Sub
Gruß Thomas